sub x1{ state $closure = shift if @_; $closure } 
sub x2{ state $closure = shift if @_; $closure };;

print x1( 123 ); print x2(); print x2(456); print x1();;
123
Use of uninitialized value in print at (eval 22) line 1, <STDIN> line 14.

456
123