my ($a1, $a2) = splice(@_, 0, 2);