But, "deep recursion" warning would indicate the issue, no? (It sure was mentioned in CB). Monks run their one-liners with a "-w"? Then, how about this solution to stop recursion:

>perl -Mwarnings=FATAL,recursion -e "sub inter{map {print shift @$_} @
+_; &inter} eval {inter([1],[1,2],[1,2,3],[1,2,3,4,5])}"
[download]

(A joke. Don't do it)