Select Code to Download

use strict;
use warnings;
...
close($fh);

print "$_ => $gene_count{$_}\n" for sort keys %gene_count;

use strict;
use warnings;
...
}

print "$_ => $gene_count{$_}\n" for sort keys %gene_count;