The $combination variable returned by the iterator is an array reference, so you need to de-reference it in order to print. The following will print each combination on a line, with each element separated by a tab character:

print $output join("\t",@{$combination}) . "\n";
[download]

The @{ } construct is what de-references the array reference