往大量文件写数据的性能问题

请问各位大虾：

        我现在要将信息写到上百万个小文件中，出现如下现象；
第一次新建文件并写入时速度很快，当后面每次追加写入时耗时为前者的10倍左右，
请问如何提高后面的追加写入速度，

用perl写的，
每次写入调用open,print,close三个函数

谢谢

到底是写到多个小文件里，还是要写到一个文件里？
写到多个文件里的话，干嘛还要追加？


同一个目录里面不要放太多文件，否则对性能影响很大。
根据文件名建子目录，把文件分散。