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