use List::Util qw(sum);

$sum = sum(1..10);