Select Code to Download

my %hash;
for (@species) {
...
for (sort keys %hash) {
    print "$_: ", $hash{$_}, "\n";
}