Select Code to Download

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

...
   printf "%s => %s\n",
      $key1, $hash{$key1};
}

my @col1;
my @col2;
...

printf "%s\n", pop(@col1)
   while @col1;