Help for this page
use FileHandle; : ... $fh{record[0]}=new FileHandle $record[0],"r" or die $!; : :