my $u_l = @result;
my $i = 0;
my $max_score = -1;
my @score_board_matrix = ();
while($i < $u_l)
{
    my $score_board_column = "";
    my $j = 0;
    while($j<$u_l)
    {
        $score = 0;
        open(fh, "tim_icc_dec12b");

        $/ = "Startpoint:";
        while(<fh>)
        {
            my @d = &get_data_path_report ($_);
            if($#d >=1)
            {
                my $ss = &array_search("$result[$i]", @d);
                my $ee = &array_search("$result[$j]", @d);
                print " !!!! ### $ss ----- $result[$i] <----> $ee ----
+- $result[$j] #### !!!!!\n";
                if($ee == $ss+1)
                {
                    $score++;
                }
            }
        }
        close(fh);
        $score_board_column = $score_board_column." ".$score;
        if($score > $max_score)
        {
            $max_score = $score;
        } 
        print "\n---------------------------$result[$i] $result[$j]---
+-\t$score------> $score_board_column\n";
        $j++;
    }
    $i++;
    push (@score_board_matrix, $score_board_column);
    print "\n";
}