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

print total_size( \%h );;
112277576

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

print total_size( \%h );;
72277576