# @dna contains the sequence

foreach my $base (@dna)     {

                    print "$base\n";

                    ++$counter;



                    my $pair = @dna1[$counter-1];

                    print "$pair";

}