ぼへーっとCPANのRSS眺めてたらArray::Each::Overrideとかいうが目に付いたのでさっそく触ってみた。 以下概要のまんまだけど例。 use Array::Each::Override; my @array = qw/a b c/; while (my ($i,$val) = each @array) { print qq{$i:$val\n}; } # 出力結果 0:a 1:b 2:c その名の通り標準関数eachが配列でも動くようにするためのモジュールですね。 配列をひとつずつ処理しつつ添え字も必要なときに便利ですな、コレ。 今まではそーゆー処理しようと思ったら、 for my $i (0..$#array) { my $val = $array[$i]; print qq{$i:$val}; } とか for (my $i=0;$i<@array;$i++) { m