my ($a1, $a2) = (shift, shift);