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