while (<INFILE>)
{
chomp;
push @dna,[split /^>(.*)/];
}
close INFILE;