Select Code to Download

my $ar = [];
push @{$ar}, $ar;
# $ar can only be destroyed manually.

use Scalar::Util qw( weaken is_weak );

...
if ( ! is_weak $copy ) {
    print "copy is not weak\n";
}