http://www.perlmonks.org?node_id=655572


in reply to Finding index of an entry in an Array

{map($_ eq 'bar' && last || $index++,  @repo)};

#or

{grep(/^\Q$input\E$/ && last || $index++,  @repo)};

[download]

In Section Seekers of Perl Wisdom