$ perl -MO=Concise -e 'sub DESTROY{print "Foo"} do{1;my $x=bless{}}; print "Bar"'
f  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 3 -e:1) v:{ ->3
-     <1> null vK*/1 ->b
a        <@> leave vKP ->b
3           <0> enter v ->4
-           <;> ex-nextstate(main 4 -e:1) v ->-
-           <0> ex-const v ->4
4           <;> nextstate(main 4 -e:1) v ->5
9           <2> sassign vKS/2 ->a
7              <@> bless sK/1 ->8
-                 <0> ex-pushmark s ->5
6                 <@> anonhash sK* ->7
5                    <0> pushmark s ->6
8              <0> padsv[$x:4,5] sRM*/LVINTRO ->9
b     <;> nextstate(main 6 -e:1) v:{ ->c
e     <@> print vK ->f
c        <0> pushmark s ->d
d        <$> const(PV "Bar") s ->e

$ perl -MO=Concise -e 'sub DESTROY{print "Foo"} do{  my $x=bless{}}; print "Bar"'
c  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 3 -e:1) v:{ ->3
-     <1> null vK*/1 ->8
-        <@> scope vK ->-
-           <;> ex-nextstate(main 4 -e:1) v ->-
7           <2> sassign vKS/2 ->8
5              <@> bless sK/1 ->6
-                 <0> ex-pushmark s ->3
4                 <@> anonhash sK* ->5
3                    <0> pushmark s ->4
6              <0> padsv[$x:4,5] sRM*/LVINTRO ->7
8     <;> nextstate(main 6 -e:1) v:{ ->9
b     <@> print vK ->c
9        <0> pushmark s ->a
a        <$> const(PV "Bar") s ->b