C:\test>p1
undef $h{ $_ } for 1 .. 1e6;;

print total_size( \%h );;
72277576