my %words=ReadDataInHash($wordfile);