local $x = $x + 1 ;  # or local $x = $x++ ; (!)