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