sub lambda {$_[1]}

our $x = 2;
my $f = lambda $x => sub {$x ** 2};
say $f->();
{
    local $x = 3;
    say $f->();
}
say $f->();
__END__
4
9
4