my ($arg1, $arg2) = splice 0, 2, @_;

##</code><code>##

my ($arg1, $arg2, @tail) = @_;