$nucleotide = randombase() until $nucleotide ne substr $dna, $position, 1;