map{ $sum += $_ } 1 .. 1000000; print $sum;