Select Code to Download

my $i = 30000;
my %h = (new => {});
my $r = \%h;
...
   $r->{new} = {};
}
print "end\n";

...29998 29999 30000 end
Segmentation fault (core dumped)

my $i = 30000;
my %h = (new => {});
my $r = \%h;
...
}
undef %h;
print "end\n";