open DNAA, "dna.nxs" or die $!;
my %ddata;
while (<DNAA>) {
	if (/(^\w+)(\t+)(\w+)/) {
		$ddata{ $1} = {
			dna => $3,
		};
	}
}