my @input = 100..200;

   foreach (@input) {
      print "$_\n";
   };