use List::Util qw/shuffle/;
sub pick {
    return if @_ != 2;
    my ($num, $count) = @_;
    (shuffle 1 .. $num)[0 .. $count-1];
}