To use a hash value as a filehandle you need to add another set of braces to create a block around it:

    print {$fh{$record[0]}} $_;
[download]

See print in perlfunc.

--
John.