$i=1; $H{ 2**52 + $i++ } = $_, $G{ pack "Q", 2**52 + $i++ } = $_ for "aaaa".."zzzz"; say total_size(\%H); say total_size(\%G)
__DATA__
63601240
59945432