在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函數來關閉文件句柄。
