for my $seq1 (subseqs($s1)) {
    for my $seq2 (subseqs($s2)) {