use POSIX;
my $number = 1;
while ($number <= POSIX::ULONG_MAX) {
    print "$number, ";
    $number *= 10;
    $number++;
}
print '...';