sub DESTROY { print "Destroying $_[0][0]\n"; }

my $x = bless [ '$x' ];

my $y = bless [ '$y' ];
$y->[1] = $y;             # cycle

our $z = bless [ '$z' ];  # pkg var

END { print "Entering global destruction\n" }