foreach my $n (1..1000) { $x=.5*$n*($n+1); print $x; }