$ perl -le " for(1..3){ my$f=$_; print\$f; }"
SCALAR(0x99b824)
SCALAR(0x99b824)
SCALAR(0x99b824)