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";
}
Perl 6:
.say for %scores.sort( { .value } )
Example:
> my %scores = < pmichaud 52 mäsak 95 PerlJam 78 >;
> .say for %scores.sort( { .value } );
pmichaud 52
PerlJam 78
mäsak 95