Select Code to Download

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

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