use List::Util qw/reduce/;
# my ($a,$b)=(0,0);
print reduce { $b+=$a } 1..10;