# ------------------------- sub DBFile_Compare_Distance #-------------------------- { my ($k1, $k2) = @_ ; my $dist = adist ( uc $k1 , uc $k2 ); my $val = undef; if( $dist < -1 ) { $val = -1; } elsif( $dist > 1 ) { $val = 1; } else { $val = 0; } $val; }