# Near start of function which Builds %WordsHash
if ( -f 'data/BuildWordsHash.dat' ) {
  # Get a reference to the read in WordHashs
  $rhWordsHash = retrieve('data/BuildWordsHash.dat') or die"ERROR: can't retrieve WordsHash!\n";
  print keys %$rhWordsHash;
  %::WordsHash=%$rhWordsHash;   #Put the WordsHash back into the right hash.
  undef($rhWordsHash); 
  print "Using data/BuildWordsHash.dat; Delete and rerun to rebuild WordsHash.\n";
  return;
}
#...

# Near end of function which build %WordsHash
# Save a copy of this WordsHash for later use
eval { store(\%::WordsHash, 'data/BuildWordsHash.dat'); };
print "Error writing to file: $@" if $@;
return 0;