在 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 循环遍历数组中的每一行并打印出来。
请确保文件路径和文件名正确，并有读取权限。
