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

splice @a;;
print total_size( \@a );;
8000176