memtime perl -e '$h = ""; $x = (2**31)-2; vec($h,$x,8) = 0;'
Exit [0]
0.94 user, 1.34 system, 2.30 elapsed -- Max VSize = 2115872KB, Max RSS = 2042140KB