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