sub test { say for @_ } test($x=0, $x=$x+1, $x++, ++$x);