foreach $line(@DNA)
{
#   if ($line =~/^>(\w+)\s(.+)$/) {
if($line =~/^>/){
    push(@seqnames, $line);
#@firstword = grep(/^>(\w+)\s(.+)/,@segnames);
}
else {push(@sequences, $line);}
}