use FileHandle;
:
: hand waving like crazy here..
$fh{record[0]}=new FileHandle $record[0],"r" or die $!;
:
: