参考: 如何获取数组中元素的索引 如果保证所有元素都是唯一的,或者只有第一个索引是感兴趣的: my ($index) = grep { $array[$_] ~~ $element } 0 .. $#array;