for my $i (map {$_ * 2} 0 .. 1000000 / 2) {$sum += $i}