foreach my $name (sort { $hash{$b} <=> $hash{$a} } keys %hash){print "$name,$hash{$name}\n";}
「数えてハッシュに登録し件数が多い順に表示」というのを最近おぼえてよく使うようになったのだが、
ハッシュの値でのソート方法をいつも検索して某所からコピーしていたのだがメンドクサイのでここに書いておく。