sub pickAll{
    my @weights = @_;
    my $total = sum @weights;
    my @order;
    for( 0 .. $#_ ) {
        my $pick = pick( \@weights, $total );
        push @order, $pick;
        $total -= $weights[ $pick ];
        $weights[ $pick ] = 0;
    }
    return @order;
}