our %dict;
our %reversedict;

sub read_dict
{
  while (<DATA>)
  {
     chomp;
     if (/^([^\s]+)\s\s(.*)$/)
     {
        my ($key,$value) = ($1,$2);
        $dict{$key} = $value;
        $reversedict{$value} = $key;
     }
   }
   return;
}


##</code><code>##

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;
}