our @test;

print "nothing : Size = ".size()."\n";
push @test, rand for (1..100000);
print "push : Size = ".size()."\n";

#undef @test;
@test = ();

print "deleted : Size = ".size()."\n";

sub size {
  open DATA, "< /proc/$$/status" or die "Unable to read data : $!\n";
  local $/;
  <DATA> =~ m/^VmSize:\s+(.*?)$/m;
  return $1;
}