If you want to use a hash item as a filehandle, just wrap it in a block. Do not follow this by a comma!

See also the last paragraph of perlfunc:print.

print { $files{$self->{_filetype}} } $entry;
[download]