You could use tie and write your own code to loop through an array of filehandles. I'd probably start out with IO::Tee or something similar, though.