# I'll call @weighteddiv "@input" here, and $maxclients "$choose_count".
{
    my %selected_set;

    my $choose_one = sub { $selected_set{ rand(@input) } = 1) };

    $choose_one->() while
        keys %selected_set < $choose_count;

    my @selected = @input[ keys %selected_set ];
}