use 5.10.0;
$| = 1;
{   
    # make a scalar reference (blessed for DESTROY to be triggered)
    say bless \do { my $x };
}
# anonymous scalar gone!
say "done";

sub DESTROY {
    warn "destroying $_[0]\n";
}
__END__
main=SCALAR(0x563bee102450)
destroying main=SCALAR(0x563bee102450)
done