
my $total;
for (0 .. 999) {
  $total = 0;
  for my $j (0 .. 999) {
    $total += $j;
  }
}
print $total, "\n";

