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

{
    my $x = bless [ '$x' ];
    my $y = bless [ '$y' ];
    $x->[1] = $y;
}

print("\n");

{
    my $x = bless [ '$x' ];
    my $y = bless [ '$y' ];
    $y->[1] = $x;
}