perlで
@arr=();
while(<>){ push(@arr,$_);}
print $#arr+1, ": end\n";
rubyで
arr=[]
while gets
arr << $_
end
puts "#{arr.size} : end"

10万行位のテキストデータを食わせると圧倒的に
Perl君の方が速いんですが、改善できるですかねえ。