Select Code to Download

foreach $key (sort keys %tt) {
       printf "%35s %15d\n",$key, $tt{$key};
}

while (($key, $value) = each %tt) {
       push @unsorted, [ $k, $v ];
...
foreach (@sort_dsc) {
     prinf "%35s %15d\n", $_->[0], $_->[1];
}