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