perl -MDevel::Size=total_size 
-le"@a= map rand(),1..1e6; print total_size \@a; $b=pack'd*', @a; print total_size( $b )"
40000176
8000056