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

Use of uninitialized value in scratchpad