print @dna [$_ - 1, $_], " " for 1 .. $#dna;