#!perl -l

sub F {
    my $foo=bless[];
    print "create:$foo";
    sub T {
      print "T";
      push @$foo,"test";
    }
    print "F";
    push @$foo,"bar";
}

sub DESTROY { print "destroy: @_:@{$_[0]}" }

F;
T;
T;
T;
F;

__END__
create:main=ARRAY(0x15d53d8)
F
T
T
T
create:main=ARRAY(0x1a4550c)
F
destroy: main=ARRAY(0x1a4550c):bar
destroy: main=ARRAY(0x15d53d8):bar test test test