Help for this page
C:\test>p1 $h{ $_ } = 'xxxxxxxx' for 1 .. 1e6;; ... print total_size( \%h );; 72277576
C:\test>p1 undef $h{ $_ } for 1 .. 1e6;; print total_size( \%h );; 72277576