foreach $genes(@genome){
    chomp($genes);

##</code><code>##

while ( $genes =<IN1> ){
    chomp($genes);
    next if ( $genes !~ /^Gm10/ );