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