Help for this page
foreach $genes(@genome){ chomp($genes);
while ( $genes =<IN1> ){ chomp($genes); next if ( $genes !~ /^Gm10/ );