Select Code to Download

my $data = pdl ...; # 1-d
#my $set1 = $data->where(something); # before Update 1
...
# Now the intersection of $set1 and $set2 is:
my $tmp = $full1->dice($set2)->sever;
my $intersect = $tmp->where(isgood $tmp);