perl -MDevel::Size=total_size
-wle"$h{ $_ } = [ \( 1 .. $_) ] for 1 .. 3e3;
      scalar<>; print total_size( \%h ); scalar <>"