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

#or

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