in reply to Sorting keys of hash table by values
@sortedKeys = sort { -( $h{$a} <=> $h{$b} ) } keys %h; [download]