Select Code to Download

sub unordered_sets {
  my ($in, $out, $left, $idx, $curr) = @_;
  push @$out, [@$curr] and return if $left == 0;
...

my @sets;
unordered_sets [1..6], \@sets, 6;