my $arr1 = [qw(A T C G T C G A G C G)]; my $arr2 = [qw(A C G T C C T G T C G)];