perl print 数组的内容

要打印出数组的内容，可以使用 Perl 中的 foreach 循环遍历数组，然后使用 print 命令打印出每个元素的值。下面是一个简单的示例代码：

#!/usr/bin/perl
use strict;
use warnings;

my @arr = (1, 2, 3, 4, 5);
foreach my $elem (@arr) {
    print $elem . "\n";
}

上面的代码首先定义了一个名为 `@arr` 的数组，其中包含了五个整数。然后使用 foreach 循环遍历数组，将每个元素赋值给 `$elem` 变量，最后使用 print 命令打印出来。在打印每个元素的时候，我使用了字符串连接符 `. ` 来将元素值和一个换行符连接起来，这样可以让每个元素单独占一行，便于观察。