@x = qw(a b c);
我用foreach遍历它，然后$ _将引用数组中的当前元素：
foreach (@x) { print; }
将打印：
abc
有没有类似的方法获取当前元素的索引，而不需要手动更新计数器？例如：
foreach (@x) { print $index; }
其中$ index更新为$ _，以产生输出：
012
for my $i (0 .. $#x) { print "$i: $x[$i]\n"; }
