$sum += $_ for 1 .. 1000000; print $sum;