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

##</code><code>##

open (DFH,"<",DATADIR.$key) or die $key;
my %record = split(/=>|\n/o,<DFH>);
close DFH;