my $number1 = 1; my $number2 = 10;
for (my $i = $number1; $i <= $number2; $i++) { 
  print "$i\n"; 
}