open(READ,"<dna.txt");
@e = <READ>;
$a = join( " ", @e );