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