use Math::Combinatorics;
my @n = qw(a b c d e a b);
my @p = permute(@n);
print join "\n", map { join " ", @$_ } @p;
print "\n共有",scalar @p,"个组合";
复制代码