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