创建二维数组

利用匿名引用，创建如下二维数组,其中黄色部分是两个数组的乘积，我们需要利用数组（1，2，3，4） 创建其乘积：

代码实现如下：

@a=(1,2,3,4);
@b=(1,2,3,4);
@c=()；
$i=0;
foreach $m (@a){  #对数组@a进行循环
    
    $j=0;
    foreach $n (@b){ #对数组@b进行循环
        
        $c[$i][$j]=$m*$n;   #循环的乘积存在@c中，每一行都是一个匿名数组
        $j+=1;
    }
    $i+=1;
}
#打印数组
$n=0;
foreach(@c){
    
foreach(@{$c[$n]}){
    
    print"$_\t";
    
}
$n+=1;
print "\n";
}

运行结果如下：

1       2       3       4
2       4       6       8
3       6       9       12
4       8       12      16