my @column = split (/,/,$line);
    my $A = $column[4] < $column[7] ? $direction[0] : $direction[1];
    my $B = $column[5] < $column[8] ? $direction[2] : $direction[3];