求一个全排列模块，谁知道？

求一个全排列模块，谁知道？
例如我给定一组字符串。
@a = ('AA','bb','11');
@b = example(@a);

@b 是将A中字符串全部组合排列产生的新的数组
结果是
('AA','bb','11','AAbb','AA11','AAbb11','AA11bb','bb11','bbAA','bb11',bbAA11','bb11AA','11AA','11bb','11AAbb','11bbAA')

[quote]--#!/usr/bin/pe.
[quote]
#!/usr/bin/perl
# cnhacktnt { a t } perlchina.org

use Algorithm::Combinatorics qw/tuples/;
use Data::Dumper;

@a=('AA','bb','11');
push @b,tuples(\@a,$_) for (1..@a);
print Dumper \@b;
[/quote]
结果是15个，你的有16个，bb11 重复了 ：－）