my @seqnames;
my @sequences;
foreach $line(@DNA)
{ 
   if ($line =~ /^>/)
   {
      push(@seqnames, $line);
   }
   else 
   {
      push(@sequences, $line);
   }
}

##</code><code>##

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