Do what you were advised to do before, and sort the reuslts.

my @a = sort {$a <=> $b}
        map {int (rand (1000) + 1)}
        1..10;
[download]