Select Code to Download

#!/usr/bin/env perl

...

print "Total ending size for \@o: ", total_size(\@o), "\n";
print "Total ending size for \@h: ", total_size(\@h), "\n";

Total starting size for @o: 64
Total starting size for @h: 64
Total ending size for @o: 15246272
Total ending size for @h: 15246272

#!/usr/bin/env perl

...
Dump($o);
Dump($o2);
Dump($h);

SV = IV(0x1e03ee8) at 0x1e03ef8
  REFCNT = 1
...
    KEYS = 0
    FILL = 0
    MAX = 7