Hi perl_seeker

This should do what you want

for (sort {$count{$b} <=> $count{$a}} keys %count){
     print "$_ $count{$_}\n";
};
[download]

thinker