http://qs321.pair.com?node_id=66027


in reply to Shortest -return index of element in array- sub

How about
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
retaining jmcnamara comments about golf