数组组合问题

数组组合问题
有形如：
A1,A2
B1,B2,B3,
C1,C2
...
的一个未知行数的文件，想要获得每一行元素的全组合输出：A1B1C1xxx,A1B1C2xxx,A1B2C1xxx,A1B2C2xxx....
想破了脑袋都觉得在一个perl脚本里很难做到，不知道那些Sql表组合的代码是怎么写出来的T_T,请各位高手赐教啊，谢谢！

#!/usr/bin/perl--my @i.
#!/usr/bin/perl
my @items;
while(<>){
chomp;
push @items,$_;
}
my $it;
foreach my $i (@items){
    $it .="{$i}";
    }
my @result =glob "$it";
print "@result";
用模式匹配就很简单了。

   

#!/usr/bin/perl--use s.
#!/usr/bin/perl
use strict;
my $item;
while(<>){
chomp;
$item .="{$_}";
}
my @lines=glob "$item";
print "@lines";