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

##</code><code>##

my ($X,$Y) = @_;