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