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