>perl -le"sub f{ \my $x } print f() for 1..10;"
SCALAR(0x236d40)
SCALAR(0x236014)
SCALAR(0x236d40)
SCALAR(0x236014)
SCALAR(0x236d40)
SCALAR(0x236014)
SCALAR(0x236d40)
SCALAR(0x236014)
SCALAR(0x236d40)
SCALAR(0x236014)