$ perl -le " sub ff { my $f = $_; return \$f } print ff() for 1..3;"
SCALAR(0x3f9bcc)
SCALAR(0x3f9bbc)
SCALAR(0x3f9bcc)