I did not understand how to use the code.

Change
for each combination @c:
to
while ( my @c = $comboObj->next_combination){

and change
# emit combination here
to
print join(', ', @c) . "\n";

After reviewing your code and comparing I do see now how it works,

It was neither my code nor my post.