perlでの連想配列のソート

http://park6.wakwak.com/~wmasa/prog/srclib/0027.htm

値で並び替え

foreach(sort {$nedan{$a} <=> $nedan{$b}} keys %nedan)
{ printf "%+6s = %6d\n",$_,$nedan{$_}; }