my $one_literal = "1";
my $counter = 1;

while ( 1 ) {
  for ( my $i = 1; $i <= $counter; $i++ ) {
    printf "$one_literal";
  }
  printf "\n";
  $counter++;
}