在perl中“打印”文件的最快方法是什么？

open( OUTPUT,">:utf8",$output_file ) or die "Can't write new file: $!";

print OUTPUT "First line I want printedn";
print OUTPUT "Another line I want printingn";

close(OUTPUT);

这是有效的,并且比我使用“说”而不是打印的初始方法更快(感谢NYTProf对我的启发！)

但是,我当前的脚本循环遍历数十万行,并且使用此方法需要花费数小时才能运行,而NYTProf正在指向我的数千个’print’命令.所以,问题是……有更快的方法吗？

其他可能相关的信息……
Perl版本：5.14.2(在Ubuntu上)

有问题的脚本的背景……
一些’|’分隔的平面文件正被读入哈希值,每个文件都有一些主键匹配条目从一个到另一个.我正在操纵这些数据,并将它们组合成一个文件以导入另一个系统.

输出文件大约是300万行,并且在向所述文件写入大约30,000行之后程序开始显着减慢. (有点阅读似乎指向其他语言的写缓冲区耗尽但我无法找到关于perl的任何内容？)

编辑：我现在尝试在open()语句之后添加下面的行,以禁用打印缓冲,但程序仍然在第30,000行左右减速.

OUTPUT->autoflush(1);