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

sub i
{        
  pop ne $_[0] ? &i : $#_
}

[download]
Ahhh, recursion...

In Section Cool Uses for Perl