my $sum = 0;
$sum += (-1)**($_+1) * $_ for 1 .. 1000;
print "$sum\n";