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