foreach $line(@DNA){
if ($line=~/^>(\S+)/){
    $seqID=$1;
    push(@seqList, $seqID);
    push (@sequences,$dnaString);
}
    else{
        chomp $line;
        $dnaString=$dnaString .$line;}
}