memtime perl -e '$h = ""; $x = (2**31)-1; vec($h,$x,8) = 0;'
Out of memory!
Exit [1]
0.00 user, 0.00 system, 0.10 elapsed -- Max VSize = 3720KB, Max RSS = 192KB