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

Ahhhh, more recursion...

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