perl -wE'sub x{say for @_}; @_=qw(1 2); x; '