Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
print "number of sequences in set 5 CTGGAGGACT sub group = $counts[4] 
+\n";
print "---------------------------------------------------------------
+\n";
print Dumper(\%bact_data);