print "\nPROCESSING file $file...\n";
while (<FILE>) {        
   chomp $_;
   $accession = $_;
   etc....I have made the necessary corrections now
}