From 'perldoc -f print':

Note that if you're storing FILEHANDLES in an array or other expressio
+n, you will have to use a block returning its value instead:
 
                   print { $files[$i] } "stuff\n";
                   print { $OK ? STDOUT : STDERR } "stuff\n";
[download]

This takes care of your parse error, but I'm not sure why your asignment to $fh didn't work. In my local testing it worked fine. I second Ovid's suggestions.

Cheers,

- danboo