Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!samsung!uakari.primate.wisc.edu!ames!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Data-selected output channels
Message-ID: <7252@jpl-devvax.JPL.NASA.GOV>
Date: 2 Mar 90 23:00:51 GMT
References: <547@arccs1.fed.FRB.GOV>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Distribution: na
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 9

Close, but you have to use indirection on the print statement too.
The actual filehandles are file1, file2 and file3.

foreach $i ("file1", "file2", "file3") {
    open($i,">$i");
    print $i "Output to $i\n";
}

Larry