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