{ my $a = 4; my $times2 = do { my $n = 2; sub { my ($x) = @_; $x * $n; } }; $times2->($a); }