Also, List::MoreUtils has a first_index method:

use List::MoreUtils;
my $input = 'qux';
my @repo = qw (foo bar qux);

Print List::MoreUtils::first_index {$_ eq $input} @repo;
[download]