$index++ until @repo[$index] eq $input or $i > $#repo;

##</code><code>##

$index++ until $repo[$index] eq $input or $index > $#repo;