my $a = 1;
my $b = 10;
my @range = $a .. $b;
for my $x (@range)
{
  print "$x\n";
}