sub { my $acc = 0; map $acc += $_, @_; $acc }->(@list)