for my $i ( 0 .. length( $dna ) - 1 ) {