为什么Perl会在打印文件时占用我的内存(RAM)？

当我注意到我的脚本在将内容写入文件的while循环中开始暂停时,就会出现这个问题.我首先检查一下我的记忆,看看当我的RAM下降到2-3％时会发生这种情况.然后,我寻找消耗RAM的代码块,并认为当脚本继续向文件提供内容时,它的大小也会增加,这也会占用内存.
以下是执行文件创建的代码：

open (my $fh,'>>',$filePath);
while (my $row = $sth->fetchrow_hashref) {
    print $fh join ('|',$row->{name},$row->{address}) "\n";
}

如果我取消注释print语句并运行脚本,我的RAM将不会减少.所以,我很确定我的内存RAM是由FILEHANDLE / Perl背后的其他内容占用了内存.这引出了一个问题,如果有办法将文件从Perl脚本写入磁盘,而不是使用内存RAM？

>我试过在每一行上冲洗FILEHANDLE,但它仍然无效.
>有一点也很奇怪的是,在我终止我的脚本之后,我会查看我的内存并且它仍然被文件占用.当我删除文件时,它释放了我的记忆.我在linux中使用free来检查我的记忆.