use List::Util qw/reduce/; my $sum = reduce { $a + $b } 1..10;