$var = 'one';
$mypackage::var = 'two';

sub we_got_the_func {
   print "Other \$var is $mypackage::var\n";
}

we_got_the_func();
__END__
Other $var is 'two'