Select Code to Download

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

use strict;
use warnings;
...
print "$_ => $hash{$_}\n"
    for sort {$hash{$b} <=> $hash{$a} || $collator->cmp($a,$b)} keys %
+hash;