print "$_ => $hash{$_}\n" for sort {$hash{$b} <=> $hash{$a} || $a cmp $b} keys %hash;