perldoc -f print:
Note that if you're storing FILEHANDLES in an array or other expression, you will have to use a block returning its value instead:

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