Whoa!

Whoa!

use strict;
use warnings;

{
    package Foo;

    sub finish {
        $_[0] = undef;
    }   

    sub DESTROY {
        print "Bye Bye\n";
    }   
}

my $one = bless {}, 'Foo';

print "A: $one\n";

$one->finish;

print "B: $one\n";

__END__

perl test.pl
A: Foo=HASH(0x2123148)
Bye Bye
Use of uninitialized value $one in concatenation (.) or string at test.pl line 22.
B: