while (@selected < $n) {
    push @selected, splice(@sub, int rand @sub, 1);
}