Select Code to Download

use strict;
use warnings;
...
my $num = '9' x $i;
$num++;
print length ($num) . ' ' . substr $num, 0, 10;

100000001 1000000000