sub SOUNDEX {
  my($self,$sth,$rowhash,@params)=@_;
  use Text::Soundex 'soundex';
  my $s1 = soundex($params[0]) or return 0;
  my $s2 = soundex($params[1]) or return 0;
  return $s1 eq $s2;
}