use strict;
use warnings;

sub Foo::DESTROY{ print "object $_[0]->[0] destroyed\n"; }

my $foo  = bless [ 'foo' ], 'Foo';  # notice 'my'
our $bar = bless [ 'bar' ], 'Foo';  # notice 'our'

END {
    print "END block executed\n";
}

##</code><code>##

object foo destroyed
END block executed
object bar destroyed

##</code><code>##

END block executed
object foo destroyed
object bar destroyed