As the docs for print explain:

               Note that if you're storing FILEHANDLEs in an array, or
+ if
               you're using any other expression more complex than a s
+calar
               variable to retrieve it, you will have to use a block r
+eturning
               the filehandle value instead:

                   print { $files[$i] } "stuff\n";
                   print { $OK ? STDOUT : STDERR } "stuff\n";
[download]