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