c:\test>perl -MDevel::Size=total_size -lwe
"$h{ $_ } = [1 .. $_] for 1 .. 1e3;scalar<>;print total_size( \%h ); scalar <>;"
11,196k
10115049
46,260k

c:\test>perl -MDevel::Size=total_size -lwe
"$h{ $_ } = [1 .. $_] for 1 .. 1e3;scalar<>;print total_size( \%h ); scalar <>;"
11,196k
10115049
11,240k

c:\test>perl -MDevel::Size=total_size -lwe
"$h{ $_ } = [1 .. $_] for 1 .. 5e3;scalar<>;print total_size( \%h ); scalar <>;"
253,664k
250591721
1,147,000

c:\test>perl -MDevel::Size=total_size -lwe
"$h{ $_ } = [1 .. $_] for 1 .. 5e3;scalar<>;print total_size( \%h ); scalar <>;"
253,644k
250591721
253,776k