use strict;
use warnings;


my @list = (0, 2, 3);
for my $w (1, 2, 3, 4, 7, 8) {
    print "count = $w\n";
    make_sets2($w, "", @list);
}

sub make_sets2 {
    my $weight = shift;
    my $temp_result = shift;
    print "$temp_result\n" and return if $weight <= 0;
    while (@_) {
        my $item = shift;
        make_sets2( $weight -1, "$temp_result$item, ", ($item, @_));
    }
}