my($a,$b)=(shift,shift);
my$a=shift;my$b=shift; # a bit shorter
my$a=pop;my$b=pop; # even shorter since multiplaction is commutative