sub foo::bar {print "bar\n";}
%main:: = (%main::, %foo::);
bar();

##</code><code>##

sub foo::bar {print "bar\n";}
foreach $name (keys %foo::) { 
    $main::{$name} = $foo::{$name};
}
bar();