Select Code to Download

for ($i =0;$i<length($dna);$i++){

...
$i++;
}

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

    $nucleotide = randombase() until $nucleotide ne substr $dna, $posi
+tion, 1;