@output = qw/apple pear cherry/; # 你給出的那個(gè)寫(xiě)法是不對(duì)的.

open F, ">fruit.txt" or die "$! Can't create file";
print F $_.$/ foreach @output;
close F;

#從頭開(kāi)始寫(xiě)

open(FILE,">fruit.txt");
#文件結(jié)尾追加
open(FILE,">>fruit.txt");
print FILE "@arr";

最簡(jiǎn)單的示例
#!/usr/bin/perl
open my $fh,">>","$file_name";
print $fh "需要寫(xiě)入的內(nèi)容";
close $fh;

perl的讀寫(xiě)文件特簡(jiǎn)單，就4句話足矣。現(xiàn)在我把每句話給你解釋一下：
①、#!/usr/bin/perl　　　在命令行打which perl就出來(lái)了，是PERL的編譯器。
②、open (OUT,">>","文件的絕對(duì)路徑");　　#“>>”:在原文件上追加，“>”:每次都覆蓋文件內(nèi)容
③、print OUT "需要寫(xiě)入的內(nèi)容";　#　5.10之前要用print，之后可以寫(xiě)say.
④、close OUT ; # 關(guān)不關(guān)無(wú)所謂，你不關(guān)，它也會(huì)自動(dòng)關(guān)閉。