@a = (bless {}, 'X');
    sub X::DESTROY { @a = () }
    @a=();
__END__