perl实现全组合的一种算法

my %dict_motif;
my @element=("A","T","C","G");
for(my $i=0;$i<7;$i++){
    if($i==0){
        foreach my $base(@element){
            $dict_motif{$base}=1;
        }
    }
    else {
        foreach my $old(keys %dict_motif){
            foreach my $base(@element){
        my $new=$old.$base;
        $dict_motif{$new}=1;
            }
            delete $dict_motif{$old};
        }
    }
}

foreach my $motif(sort keys %dict_motif){
    print "$motif\n";
}