#!/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