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

Re^4: Limit the size of a hash Warming the pot