my $did1 = $data[0];
my $did2 = $data[1];
my $score1 = $data[2];
my $score2 = $data[3];