my $sum = 0;
$sum += $_ for @list;