$$_ = foo ; #### $main::zero = foo ; #### eval("\$$_ = foo") ; #### my $zero ; ... print "$zero" ;