my $dna = 'accatgagctgtacgtagcatctgagcgcgcatgactgtgactgacgtaggcagca';
my @windows = unpack 'A3' x length $dna, $dna;
print "@windows";