local(*foo) = *bar;
    local($_main{'foo'}) = $_main{'bar'};

##</code><code>##

$ cat pm_11137628_pkg_sep.pl
use strict;
use warnings;

our $x = 42;
print $], "\n";
print $main'x, "\n";
print $main::x, "\n";

##</code><code>##

$ perl pm_11137628_pkg_sep.pl
5.034000
42
42

##</code><code>##

    sub arrayadd {
        local(*a, *b) = @_;
        ...
    }
    
    @foo = (1,2,3);
    @bar = (10,20,30);
    @totals = &arrayadd(*foo, *bar);