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

print total_size( \%h );;
1583106697

print 1583106697 * 35;;
55408734395

##</code><code>##

C:\test>dir file2x
10/04/2012  17:27       369,499,228 file2x

C:\test>perl -nle"($k,$v)=split '\*'; $h{$k}=$v }{ print 'Check mem'; <>" file2x
Check mem
3.8GB