open (DFH,">",DATADIR.$key) or die;
print DFH "$_=>$record{$_}\n" foreach (keys %record);
close DFH;