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