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