Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
But in short:
@keys = sort { $hash{$b} <=> $hash{$a} } keys %hash; [download]