Perl从两个二维数组中减去数值

# 定义两个二维数组
my @array1 = ([1, 2, 3], [4, 5, 6], [7, 8, 9]);
my @array2 = ([9, 8, 7], [6, 5, 4], [3, 2, 1]);

# 获取数组的行数和列数
my $rows = scalar @array1;
my $cols = scalar @{$array1[0]};

# 创建一个新的二维数组用于存放结果
my @result;

# 遍历数组进行减法操作
for my $i (0..$rows-1) {
    for my $j (0..$cols-1) {
        $result[$i][$j] = $array1[$i][$j] - $array2[$i][$j];
    }
}

# 打印结果
for my $i (0..$rows-1) {
    for my $j (0..$cols-1) {
        print $result[$i][$j], " ";
    }
    print "\n";
}