$ perl -e '$sum += $_ for ( 1..1000000 );print $sum'
500000500000

##</code><code>##

$ perl -e 'for(1..1_000_000){$sum+=$_ for(split//)};print $sum'
27000001