Select Code to Download

1000000001x[1-10].las
1000000002x[1-10].las
1000000003x[1-10].las
...
1000000010x[1-10].las

my @from = sort { substr( $a, 46, -4) <=> substr( $b, 46, -4) } <$from
+dir/*.las>;
...
    $next++;
}