local *_r = sub { my @v = @_; return if not $cb->(@v); return if @v == 1; for (0..$#v) { my @v_ = @v; splice(@v_, $#v-$_, 1); _r(@v_) if not $seen{join $;, @v_}++; } };