use List::Util qw[sum ];<br>
my $totalSum = sum (1..100); 
print "$totalSum\n";