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

{
    my $l3 = bless [ 'l3' ];
    my $l2 = bless [ 'l2', $l3 ];
    my $l1 = bless [ 'l1', $l2 ];
}

print("\n");

{
               my $l1 = bless [ 'l1' ];
    $l1->[1] = my $l2 = bless [ 'l2' ];
    $l2->[1] = my $l3 = bless [ 'l3' ];
}