note
Tyke
How about
<code>
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
</code>
retaining [jmcnamara] comments about golf
66003
66003