http://www.perlmonks.org?node_id=716369


in reply to Generate the perl sequence 1, 11, 111, ....

my $one = "1";
my @ones = ( $one );
while ( 1 ) {
    $one .= "1";
    push( @ones, $one );
}

[download]

In Section Seekers of Perl Wisdom