```perl
!/usr/bin/perl
use strict;
use warnings;
定义一个二维数组
my @matrix = (
[1, 2, 3],
[4, 5, 6],
[7, 8, 9]
);
使用嵌套循环遍历二维数组
foreach my $row (@matrix) {
foreach my $element (@$row) {
print "$element ";
}
print "\n";
}
```
解释：
1. 定义二维数组：`@matrix` 是一个包含多个引用的数组，每个引用指向一个一维数组，这样就构成了一个二维结构。
2. 外层循环：`foreach my $row (@matrix)` 遍历 `@matrix` 中的每一行（实际上是每行的引用）。
3. 内层循环：`foreach my $element (@$row)` 遍历当前行 `$row` 中的元素。注意这里需要使用 `@$row` 来解引用。
4. 输出结果：通过 `print` 函数将每个元素打印出来，并在每行结束后换行。
这段代码不仅简单直观，而且充分利用了Perl的强大特性，如引用和解引用操作。这样的实现方式易于理解和维护，同时保持了代码的高效性。
