#! /usr/bin/perl

use strict;
use warnings;
use Text::CSV;

my $basepath = "/home/eankuls/perl/vodafone/punjab";
my $IPfile = "Consolidated_output.csv";
my $OPfile = "Final_report.csv";

open (my $FH, "${basepath}/${IPfile}") or die "Can't open $IPfile file: $!";
open (my $WFH, ">>", "${basepath}/${OPfile}") or die "Can't open $OPfile file: $!";

my $csv = Text::CSV->new({
                sep_char => ",",
                binary => 1,
                auto_diag => 1 });

my $row = $csv->getline($FH);

my $flag = 0;
my $flag1 = 0;
my (@row1, @row2);

while (my $row = $csv->getline($FH) ) {
       my (@AllowedPID, @STax);
       if ($flag == 0) {
           @row1 = @{$row};
           $flag++;
           push (@AllowedPID, $row1[2]); 
           push (@STax, $row1[6]);
           next;
           }
       else {
            @row2 = @{$row};     
            }

       if ($row1[0] == $row2[0] and $row1[3] == $row2[3] and $row1[8] == $row2[8])
              {
                if ($flag1 == 0 ) {
              push (@AllowedPID, $row1[2]);
              push (@STax, $row1[6]); 
              $flag1++;
        }

              push (@AllowedPID, $row2[2]);
          push (@STax, $row2[6]);
              next; }


       else {
             $row2[2] = join(";", @AllowedPID);
             $row2[6] = join(";", @STax);
             my $row_final = join (",", @row2);
             print $WFH $row_final;
             @row1 = @row2;
             next;
             }

             #print WFH @row2;
             $flag = 0;
             $flag1 = 0;
        }