#!F:\strawberry-perl-5.16.1.1\perl\bin\perl -w

use strict;
use warnings;
#use diagnostics;
use Text::CSV_XS

my %File1Map;
my %File2Map;

my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1, allow_whitespace => 1 });

open my $fh1, "<", "final.csv" or die "final.csv: $!";
$csv->column_names ($csv->getline ($fh1)); # Read the header line
while (my $row1 = $csv->getline_hr ($fh1)){
      my $File1Map{$row1->{username}} = $row1->{date_modified};
}

open my $fh2, "<", "HCDir.csv" or die "HCDir.csv: $!";
$csv->column_names ($csv->getline ($fh2)); # Read the header line
while (my $row2 = $csv->getline_hr ($fh2)){
      my $File2Map{$row2->{fullname}} = $row2->{branch};
}
	
$csv->eol ("\n"); # Now use it for output
open my $fh3, ">", "completed.csv" or die "completed.csv: $!";
my $oldvalue
my $newvalue
while ($fh1){
	$oldvalue = $File1Map{"$username"} = "$date_modified";
	$newvalue = $File2Map{"$fullname"} = "$branch";
    $csv->print ($fh3, [ $username, $newvalue, $oldvalue ]);
}