my ( $did1,$did2,$score1,$score2 ) = (split("\t", $_))[0..3];