在 Perl 中，可以使用 open 函数打开文件，并使用 < 操作符读取文件内容到数组中。下面是一个简单的示例代码：

my $file = 'example.txt';open(my $fh, '<', $file) or die "Could not open file '$file' $!";my @lines = <$fh>;close($fh);foreach my $line (@lines) {print $line;}

在上面的代码中，首先使用 open 函数打开名为 example.txt 的文件，并使用 < 操作符将文件内容读取到名为 $fh 的文件句柄中。然后将文件句柄 $fh 中的内容读取到数组 @lines 中。最后使用 foreach 循环遍历数组中的每一行并打印出来。

请确保文件路径和文件名正确，并有读取权限。