Select Code to Download

my %counts;
while (<$fh>) {
...
   my @fields = split /\t/;
   $counts{ $fields[3] }++;
}

for ( sort { $a <=> $b } keys %counts ) {
   print("$_: $counts{$_}\n");
}