note Anonymous Monk <p> Naturally I zoned out going from QT to T :) I should have not used @S, I should have called it @Triplets, and I also glossed over the output (one match was missing, doh). In main loop should be <c> for my $one (@T) { my @matches = induced( \@S, $one ); </c> 997085 997164 1