http://www.perlmonks.org?node_id=55876


in reply to one-liner hogs

Memory hog: perl -e '$foo[10000000]="hog"; sleep(10)'

increase the array index to something bigger to take more (or less memory)