Select Code to Download

my @seqnames;
my @sequences;
...
      push(@sequences, $line);
   }
}

my @seqnames;
foreach $line(@DNA)
...
      push(@seqnames, $1);
   }
}