my @seqnames;
foreach $line(@DNA)
{
   if ($line =~ /^>(\w+)\s/)                                
   {
      push(@seqnames, $1);
   }
}