Sie Data::PowerSet wie Matthew erwähnt verwenden können. Wenn Sie jedoch, wie in Ihrem Beispiel angegeben, nur richtige Teilmengen und nicht jede Teilmenge möchten, müssen Sie ein wenig mehr Arbeit erledigen.
# result: all subsets, except {68, 22, 43}.
my $values = Data::PowerSet->new({max => 2}, 68, 22, 43);
Ebenso, wenn Sie die Nullmenge weglassen wollen, fügen Sie einfach den min
Parameter:
# result: all subsets, except {} and {68, 22, 43}.
my $values = Data::PowerSet->new({min => 1, max => 2}, 68, 22, 43);
Andernfalls alle Untergruppen zu erzielen, lassen Sie nur die beiden Parameter:
# result: every subset.
my $values = Data::PowerSet->new(68, 22, 43);
Aus dem Beispiel gehe ich davon aus, dass er richtige Teilmengen will. – ysth