our @a; local *a = shift;

##</code><code>##

\local our @a = shift;

##</code><code>##

\my @a = shift;

##</code><code>##

sub sum {
    \my @a = shift;
    my $total = 0;
    $total += $a[ $_ ] for 0 .. $#a;
    return $total;
}