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