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