#!/usr/bin/perl
use strict;
use warnings;
# 1)input file
my $file = "c:/documents and settings/desktop/dirTable.csv";
open (TEMP, $file) or die("Error: cannot open $file\n");

# 2)output file
my $outfile = "c:/documents and settings/desktop/dirMatched.csv";
open (OUTPUT,">$outfile") or die("Error: cannot open $outfile\n");

#Private variables
my $nline = "\n";
my $comma = ",";
my @direction = ["east","west","north","south"];

#Main body

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