use v5.22;
use feature 'refaliasing';
no warnings 'experimental::refaliasing';
sub sum {
    \local our @a = shift;
    my $total = 0;
    $total += $a[ $_ ] for 0 .. $#a;
    return $total;
}