in reply to Comparing and getting information from two large files and appending it in a new file
foreach $genes(@genome){ chomp($genes); [download]
while ( $genes =<IN1> ){ chomp($genes); next if ( $genes !~ /^Gm10/ ); [download]