for ( my $loc = 0; $loc <= length($dna) - 10; $loc += $increment ) {