ハッシュを値でソートする

さくらにさくらんぼがなっていました｡
近所のおばさま方が群がっていたので混じって食しました｡
酸っぱくて苦かったです｡

print <<EOT;
ハッシュの値でソートする
名前 => 点数
とかのハッシュでベスト3を出すとか
もっとイイ方法がある気がする
EOT
my %hash = (
	'aa' => 10,
        'cc' => 20,
	'bb' => 30,
	'dd' => 40,
	'ee' => 50,
	'ff' => 60,
	'gg' => 70,
	);
my $i = 0;#ステップ用
my $limit = 3;#出す順位
foreach my $key (sort {scalar $hash{$b} <=> scalar $hash{$a}} keys %hash){
	$i++;
	print "$i 位 : $key さん  $hash{$key} 点\n";
	last if($i >= $limit);
}