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