Select Code to Download

1 2
3 4
5 6

1 4
2 5
3 6

my @keys = sort { $hash{$b} <=> $hash{$a} || $b cmp $a } keys %hash;

...
printf "%s => %s\n",
   $keys[$#keys], $hash{$keys[$#keys]}
       unless $#keys % 2;