use Data::Dumper;
...
open(DNA3handle, $DNA3file);
@DNA3 = <DNA3handle>;
print Dumper \@DNA3;  # what's actually in the array right now?
...
open(DNA4handle, $DNA4file);
@DNA4 = <DNA4handle>;
print Dumper \@DNA4;  # ditto
...