$sum=0; for (my $i=0;$i++<=$n;) {$sum+=$i}