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