my $code = do {
    my $g;
    sub { $g = Scope::Guard->new( sub { warn "destroyed";  $x ; } ); }
};

$code->();