在 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 循環遍歷數組中的每一行并打印出來。
請確保文件路徑和文件名正確，并有讀取權限。
