$$_ = foo ;

##</code><code>##

$main::zero = foo ;

##</code><code>##

eval("\$$_ = foo") ;

##</code><code>##

my $zero ;
...
print "$zero" ;