I think you just want to sort the keys based on the values:

for my $k (sort { $hash{$a} <=> $hash{$b} } keys %hash) {
  print "$k: $hash{$k}\n";
}
[download]

There's a module, Sort::Key, for doing it faster, though it likely won't matter.