perl -le 'my $foo;print \$foo;for $foo(1){print \$foo}'
SCALAR(0x8152348)
SCALAR(0x81441c8)