The last line should be ++$index until $a[$index] == $want or $want > $#a, and thanks to stephen for pointing this out.