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

##</code><code>##

foreach my $accession(@acc) {
    chomp $accession;
    etc....I have made the necessary corrections now
}