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