Select Code to Download

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

$ cat pm_11137628_pkg_sep.pl
use strict;
...
print $], "\n";
print $main'x, "\n";
print $main::x, "\n";

$ perl pm_11137628_pkg_sep.pl
5.034000
42
42

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