Here's another tip concerning filehandles in hashes:

#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]}  } $_;

#See print in perlfunc.
######################################################
[download]