Select Code to Download

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

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