for ($i=0; $i<1e6; $i++) {
...

##</code><code>##

my $total;
for (1..1_000_000) {
 $total += $_ for split "";
}
print "$total\n";