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