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

print total_size( \%h );;
1583106697

print 1583106697 * 35;;
55408734395