@a = 1 .. 1e6;;
print total_size( \@a );;
32000176

undef @a;;
print total_size( \@a );;
176