>perl -MDevel::Peek -le"sub f{ my $rv = \my $x; Dump($x); $rv } print f() for 1..5"
SV = NULL(0x0) at 0x235fcc
  REFCNT = 2
  FLAGS = (PADBUSY,PADMY)
SCALAR(0x235fcc)
SV = NULL(0x0) at 0x236038
  REFCNT = 2
  FLAGS = (PADBUSY,PADMY)
SCALAR(0x236038)
SV = NULL(0x0) at 0x235fcc
  REFCNT = 2
  FLAGS = (PADBUSY,PADMY)
SCALAR(0x235fcc)
SV = NULL(0x0) at 0x236038
  REFCNT = 2
  FLAGS = (PADBUSY,PADMY)
SCALAR(0x236038)
SV = NULL(0x0) at 0x235fcc
  REFCNT = 2
  FLAGS = (PADBUSY,PADMY)
SCALAR(0x235fcc)