$ perl -we'$Foo::a = 2; *a = \$Foo::a; for $a (4) { print $a, $Foo::a }'
42
$ perl -we'$Foo::a = 2; *a = \*Foo::a; for $a (4) { print $a, $Foo::a }'
44