#!/usr/bin/perl
use warnings;
use strict;

my %bubs;

while(1){
for(1.. 500){
  $bubs{$_} = ZtkBubject->new(
                 -name => $_,
          );
 $bubs{$_}=();
 delete $bubs{$_};
}

%bubs = ();
undef %bubs;
print "\nCheck memory now and hit enter\n";
<>;

}

#============================================================================= 
#                ZtkBubject  Class 
#============================================================================= 
package ZtkBubject;
use strict 'vars';
use Carp;

sub new {
    my ($class, %arg) = @_;

        my $self = {
          'name'  => $arg{-name},
       };
bless $self;
#    print "just blessed $self\n"; 
    $self->{stuff} = [1..1000]; #add some memory usage  
return $self;
}
############################################# 
sub DESTROY{
  my ($self) = @_;
   print "destroying->", $self->{name},'  ',$self,"\n";
}
########################################### 
1;