my $z = 10 * random(20);
my $n = 3;
print $z->qsort->(-$n:);