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