for my $i (0 .. @qual - $kmer) {