my $in16S = '/Users/saierlab/db/all_16S_rRNA.faa';
open I16S, '<', $in16S or die "Cannot open '$in16S' because: $!";
my $inList = 'no';
my $genus16S = '';
while ( <I16S> ) {