my $DICT_A = "/usr/perl/dict_a.txt";
  my $DICT_N = "/usr/perl/dict_n.txt";