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