my $foo; *foo=\$foo;

$foo = 5;
print $::foo;