for my $pos (0 .. $#DNA) { ... }