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

  for my $one (@T) {
    my @matches = induced( \@S, $one );
[download]