>>67
List::MoreUtilsにfirst_indexなんてのもある、と一応紹介。
繰り返し処理するならハッシュに突っ込んだほうが良いね

http://search.cpan.org/~vparseval/List-MoreUtils-0.17/lib/List/MoreUtils.pm
my @list = (1, 4, 3, 2, 4, 6);
printf "item with index %i in list is 4", firstidx { $_ == 4 } @list;
__END__
item with index 1 in list is 4