my ($s,$x,$i); for ($i=0; $i<1e6; $i++) { # print "$i:"; # get all digits in a number for ($i=~/./g) { # print "$_ "; # sum all digits $s += $_; } # print " ($s)\n"; }; print"\nAnswer: $s\n";