sub indexArray{for(1..@_){$_[0]eq$_[$_]&&return$_-1}-1}
my @array=('john','paul','ringo','george');

print indexArray('john',@array) ."\n";      # Returns 0
print indexArray('ringo',@array) ."\n";     # Returns 2
print indexArray('mick',@array) ."\n";      # Returns -1
[download]