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