Help for this page

Select Code to Download

Select or download this

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

Select or download this

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