Select Code to Download

    [
        # First loop: all item indices
...
                : []
        } ) x $#items,
    ],

for $_ (  0..$#items  ) {
    # ...
...
        }
    }
}

        OnlyWhen => sub {
            # Compute sum of selected items as
...
            # Return subsets that match desired sum:
            return $sum[@_] == $target;
        },

@_= ();
for $_ (  0..$#items  ) {
...
    }
    pop @_;
}

$sum[@_] < $target ? [ ($_+1)..$#items ] : []

    next   if  $target <= $sum[@_];

@_= ();
for $_ (  0..$#items  ) {
...
} continue {
    pop @_;
}

while(  my @list= @items[ $iter->() ]  ) {
    warn "$target = sum( @list )\n";
}