在Perl中，可以使用open函数打开文件，并使用<>操作符逐行读取文件内容到数组中。下面是一个示例代码：
my $file = "example.txt";
open(my $fh, "<", $file) or die "Cannot open file: $!";
my @lines = <$fh>;
close($fh);
foreach my $line (@lines) {
chomp($line); # 去除每行末尾的换行符
print "$line\n";
}
在上面的示例中，首先使用open函数打开名为example.txt的文件，然后使用<>操作符将文件内容逐行读取到@lines数组中。最后，使用foreach循环遍历数组并打印每行内容。
需要注意的是，在使用完文件之后需要调用close函数来关闭文件句柄。
