perl——获取数组中元素的索引

参考：
如何获取数组中元素的索引

如果保证所有元素都是唯一的，或者只有第一个索引是感兴趣的：

my ($index) = grep { $array[$_] ~~ $element } 0 .. $#array;