this could help :)

my $x = 1;
my $y = 100;

my $sum += $_ for $x..$y;

print $sum;
[download]