sort { $hash{$b} <=> $hash{$a} or $a cmp $b } keys $hash