#!/usr/bin/perl -w

@DNA3 = qw(A T C C A T G C);

@DNA4 = qw(G C C G A A T T A);

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

print @DNA3, "\n";

exit;