my ( $did1, $did2, $score1, $score2 ) = split "\t";