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

##</code><code>##

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

##</code><code>##

sub x1 { state $closure ... }
sub x2 { state $closure ... }

##</code><code>##

$ perl -le 'sub x { our $c = shift if @_; $c } $::c = 1; print for x(), x(2)'
1
2