*main::package_var=\(my $lexical_var); 
$lexical_var='foo'; 
print $main::package_var; #prints 'foo'