а перлом слабо

%count=();
while(<>){
chomp;
push(@array,$_)
}
foreach $element(@array){
$count{element}++
}
хеш %count содерхит элементы и чатоту их появления в тексте