#Main body

while (my $line = <TEMP>)
{   
    my $A;
    my $B;
    my @column = split (/,/,$line);
    if ($column[4] < $column[7])
       { $A = $direction[0];
       }else {$A = $direction[1]; }
    if ($column[5] < $column[8])
       { $B = $direction[2];
       }else {$B = $direction[3]; }
    my $dir = $A.$B;
    
     print OUTPUT $column[4],$comma,$column[5],$comma,$column[7],$comma,$column[8],$comma,$dir,$comma,$nline;
 }