open I16S, '<', $in16S;

##</code><code>##

my %r_genus16S;

##</code><code>##

my ($genus16s) = <I16S>;

##</code><code>##

while ( defined( ${'genus16S'} = readline(*I16S) ) ) {