Select Code to Download

use strict;
use warnings;
...
for my $key (sort keys %hash){
    print $key . " " . $hash{$key} . "\n";
}