for ($i = 2; $i < @dna; $i += 3) # assuming your start index is 0