my @seq1 = split //, $seq1;
splice @seq1, 0, $window_size;
my @seq2 = split //, $seq2;
splice @seq2, 0, $window_size;