my $idx=-1;
for my $nucleotide (@DNA){
    $idx++;
    ...
}
 

##</code><code>##

while ( my ($idx, $nucleotide) = each @DNA){
    ...
}