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