Sorting a hash by value

Perl 5:

# sort hash by value
for ( sort { $h{$a} cmp $h{$b} } keys(%h) ) {
    print $_, "\t", $h{$_}, "\n";
}