evil_destroy.pl

#!/usr/bin/perl
#
# An evil form of perl DESTROY-method

use strict;
use warnings;

{
    package Evil;
    our @DESTROYED;

    sub new {
        my $class = shift;
        return bless {}, $class;
    }

    sub DESTROY {
        warn "Destroy $_[0]";
        push @DESTROYED, $_[0];
    }
}

my $evilobj = Evil->new();
$evilobj = undef;
shift @Evil::DESTROYED;
shift @Evil::DESTROYED;
shift @Evil::DESTROYED;
shift @Evil::DESTROYED;
shift @Evil::DESTROYED;
shift @Evil::DESTROYED;
shift @Evil::DESTROYED;