From @haukex

Dear P5P,

The fourth of these three examples seems inconsistent, there appears to
be something funky going on with the scoping - it seems to me they
should all output the same thing, i.e. the object should be being
destroyed at the end of the do{}'s scope in the fourth example.

$ perl -e 'sub DESTROY{print "Foo"} { my $x=bless{}}; print "Bar"'
FooBar
$ perl -e 'sub DESTROY{print "Foo"} do{ bless{}}; print "Bar"'
FooBar
$ perl -e 'sub DESTROY{print "Foo"} do{1;my $x=bless{}}; print "Bar"'
FooBar
$ perl -e 'sub DESTROY{print "Foo"} do{ my $x=bless{}}; print "Bar"'
BarFoo

First reported here by "vr"​: https://www.perlmonks.org/?node_id=1227033

This behavior is the same in 5.6.2 thru 5.28.0 (older versions not tested).

Thanks, Regards,
-- Hauke D