Help for this page

Select Code to Download


  1. or download this
    use Devel::Size qw[ total_size ];;
@a = 1 .. 1e6;;
...
@a = ();;
print total_size( \@a );;
8000176
  2. or download this
    @a = 1 .. 1e6;;
print total_size( \@a );;
...
splice @a;;
print total_size( \@a );;
8000176
  3. or download this
    @a = 1 .. 1e6;;
print total_size( \@a );;
...
undef @a;;
print total_size( \@a );;
176