my $z = random(10)->qsort; print $z;