open(USRHASH,"<$usrhash") or die ......;
flock(USRHASH, LOCK_SH) or die..........;
$/=undef;
eval <USRHASH>;
close (USRHASH);
$/="\n"; 
my %newhash=%$USRLST1; # the reference as created by Data::Dumper