use strict;
use warnings;


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

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