my($n,$m,$o) = (shift,shift,shift);