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

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