$a=1;
while ($b< 100){
  $a =~ s/1$/11/;
  print "$a\n";
  $b++;
}