print map $_,"\t",$hash{$_},"\n", sort keys %hash

##</code><code>##

foreach my $key (sort keys %hash){
    print $key,"\t",$hash{$key},"\n";
}