Cool Perl 6: Hash sort by value

Perl 5:

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