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