>>753
my @key = sort { $hoge{$b} <=> $hoge{$a} } (keys %hoge);
my @value = @hoge{@key};