my $code = sub { $x };   # $x is closed over

##</code><code>##

$ perl -MDevel::Peek -e'my $x; Dump(sub {1})'
$ perl -MDevel::Peek -e'my $x; Dump(sub {$x})'