sub mysub {
my ($a1, $a2) = (shift, shift)
...