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