>>34
Perl昨日始めたばかりのオレでも出来ましたが…。

foreach $i (sort { $hoge{$b} <=> $hoge{$a} } keys %hoge) {
print $i, " " , $hoge{$i} , "\n";
}