/usr/bin/perl -le '@ARGV=qw(this that more less);pop;shift;print join "<>", @ARGV;'
that<>more
/usr/bin/perl -le '@ARGV=qw(this that more less);pop;shift;push;print join "<>", @ARGV;'
Not enough arguments for push at -e line 1, near "push;"
/usr/bin/perl -le '@ARGV=qw(this that more less);pop;shift;unshift;print join "<>", @ARGV;'
Not enough arguments for unshift at -e line 1, near "unshift;"
/usr/bin/perl -le '@ARGV=qw(this that more less);pop;shift;push "X";print join "<>", @ARGV;'
Type of arg 1 to push must be array (not constant item) at -e line 1, near ""X";"
 /usr/bin/perl -le '@ARGV=qw(this that more less);pop;shift;unshift "X";print join "<>", @ARGV;'
Type of arg 1 to unshift must be array (not constant item) at -e line 1, near ""X";"