http://www.perlmonks.org?node_id=440665


in reply to Frequency of words in text file and hashes

Hi perl_seeker

This should do what you want 

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

[download]

thinker

In Section Seekers of Perl Wisdom