perl实现数组间的组合

#!/usr/bin/perl -w 

@c = ('c1','c2','c3');
@d = ('d1','d2','d3');

&array_permute(\@c,\@d);

sub array_permute{
        my $aa = shift @_;
        foreach(@$aa){
                push(@arr,$_);
                array_permute(@_) if @_;
                print "@arr\n" unless @_;
                pop @arr;
        }
}

输出为：

c1 d1
c1 d2
c1 d3
c2 d1
c2 d2
c2 d3
c3 d1
c3 d2
c3 d3