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