my @dna = qw(A T C G);
my $counter;
foreach my $i  (1..$#dna){
	my $base = $dna[$i-1];
	my $pair = $dna[$i];
	print "$base$pair\n";
}