Select Code to Download

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

    my ($at_x, $at_y, $goal_x, $goal_y) =
        ( split(/,/, $line) )[4,5,7,8];

    my $x_dir = $at_x < $goal_x ? 'East'  : 'West';
    my $y_dir = $at_y < $goal_y ? 'North' : 'South';