my $i = $number1; while ($number2 >= $number1) { print $i++, "\n"; }