Select Code to Download

my $a = sequence(10);
print $a;
...
my $b = pdl(2,5,7);
print $b;
[2,5,7]

my $z = which($a==$b(1));
print $z;
[3]

my $z = which($a==$b);