package A;

sub DESTROY { print "destroy\n"; }
sub new { bless {}, A }

package main;

my ($a, $o) = ( 1 );
if ( $a ) {
  my $a = A->new;
  print "scope left\n";
}

##</code><code>##

./perl -Dt /tmp/test
(/tmp/test:3)	null
(/tmp/test:3)	const(PV("destroy\12"\0))
(/tmp/test:3)	stringify
(/tmp/test:11)	null
(/tmp/test:11)	const(PV("scope left\12"\0))
(/tmp/test:11)	stringify

EXECUTING...

(/tmp/test:0)	enter
(/tmp/test:0)	nextstate
(/tmp/test:8)	pushmark
(/tmp/test:8)	const(IV(1))
(/tmp/test:8)	pushmark
(/tmp/test:8)	padsv($a)
(/tmp/test:8)	padsv($o)
(/tmp/test:8)	aassign
(/tmp/test:8)	nextstate
(/tmp/test:9)	padsv($a)
(/tmp/test:9)	and
(/tmp/test:9)	enter
(/tmp/test:9)	nextstate
(/tmp/test:10)	pushmark
(/tmp/test:10)	const(PV("A"\0))
(/tmp/test:10)	method_named
(/tmp/test:10)	entersub
(/tmp/test:10)	nextstate
(/tmp/test:4)	pushmark
(/tmp/test:4)	anonhash
(/tmp/test:4)	srefgen
(/tmp/test:4)	const(PV("A"\0))
(/tmp/test:4)	bless
(/tmp/test:4)	leavesub
(/tmp/test:10)	padsv($a)
(/tmp/test:10)	sassign
(/tmp/test:10)	nextstate
(/tmp/test:11)	pushmark
(/tmp/test:11)	const(PV("scope left\12"\0))
(/tmp/test:11)	print
scope left
(/tmp/test:11)	leave            # this "leave" triggers the DESTROY call
(/tmp/test:9)	nextstate
(/tmp/test:3)	pushmark
(/tmp/test:3)	const(PV("destroy\12"\0))
(/tmp/test:3)	print
destroy
(/tmp/test:3)	leavesub
(/tmp/test:9)	leave