my $sum = reduce { $a + $b } 0, @list;