my $thing;
for(my $x=0; $x<=100000;$x++){
      $thing .+ "$x<br>";
}
print $thing;