my @windows = map { substr($dna,$_*3,10) } 0..int((length($dna)-10)/3);