$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 #### perl -E '$a = 2**53+1; $b = 2**53+2; say "Hello" if $a != $b and $a eq $b; say "End"' Hello End #### perl -Mbignum -E '$a = 2**53+1; $b = 2**53+2; say "Hello" if $a != $b and $a eq $b; say "End"' End