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

##</code><code>##

while (($key, $value) = each %tt) {
       push @unsorted, [ $k, $v ];
}

@sort_asc = sort { $a->[1] <=> $b->[1] } @unsorted;
@sort_dsc = sort { $b->[1] <=> $a->[1] } @unsorted;

print "low to high\n";
foreach (@sort_asc) {
     prinf "%35s %15d\n", $_->[0], $_->[1];
}
print "\n";
print "high to low\n";
foreach (@sort_dsc) {
     prinf "%35s %15d\n", $_->[0], $_->[1];
}