Well you can "open" several fields into one filehandle. Using some tie() magic. See IO::Tee on CPAN.

But unless you really need to keep printing to several places at once i would not recomend this. If you only need to print a single thing into the files it's better to open+print+close them in the loop.

Jenda