perl -E'sub _{push@_,say@_;&_}_'