http://www.perlmonks.org?node_id=66890


in reply to Re: Shortest -return index of element in array- sub
in thread Shortest -return index of element in array- sub

sub i {
  pop eq $_[0] ? @_-1 : (), $#_ ? &i : ()
}

[download]
Ahhhh, more recursion...

ps. This is why I used @_-1 instead of $#_

In Section Cool Uses for Perl