use strict;
use warnings;

my $n1 = 1;
my $n2 = 100;
for ($n1 .. $n2) {
    print "$_\n";
}