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

print x1( 123 ); print x2(); print x2(456); print x1();;
123
123
456
456