連想配列の値は全て数字とします。
連想配列の最小値を取得したいのですが、なにかよい方法はありませんか？

聞きたいことってコレ？

--ここから-----------------------------------------
%hash = ("TOKYO"=>"600", "OSAKA"=>"300", "AICHI"=>"900");

@keys = sort keys %Hash;
print "@keys\n";

@keys = sort {
  $hash{$a} cmp $hash{$b};
} keys %hash;

print "@keys[0]\n"
--ここまで-----------------------------------------

@keys[0]に、上記%hashのkeyのOSAKAが入ります。