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