@a = (1..10); use List::Util qw(reduce); $sum = reduce { $a + $b } @a;