#!/usr/bin/perl -w

$DNA3file = 'testDNA3';

open(DNA3handle, $DNA3file);

@DNA3 = <DNA3handle>;

$DNA4file = 'testDNA4';

open(DNA4handle, $DNA4file);

@DNA4 = <DNA4handle>;

splice (@DNA3, 1, 0, @DNA4);

print @DNA3, "\n";

exit;