my $dict = "/tmp/Lingua::EN::Rhyme::Dictionary::DICT";
my $reversedict = "/tmp/Lingua::EN::Rhyme::Dictionary::REVDICT";
my $loaded = retrieve_dict();

sub store_dict
{
   read_dict();
   store(\%dict,$dict);
   store(\%reversedict,$reversedict);
}

sub retrieve_dict
{
   my $ref = retrieve("DICT");
   if ($ref)
   {
      %dict = %$ref;
      $ref = retrieve("REVDICT");
      %reversedict = %$ref;
   }
   else
   {
      # Read in normal way and store
      read_dict();
      store_dict();
   }
   return 1;
}