Select Code to Download

use strict;
use warnings;
...
for my $base (keys(%counts)) {
   print("$base: $counts{$base}\n");
}

...

...
}

...