Help for this page
open I16S, '<', $in16S;
my %r_genus16S;
my ($genus16s) = <I16S>;
while ( defined( ${'genus16S'} = readline(*I16S) ) ) {