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