my $KPIs_fa_infile = "KPIs_fa_TACT_${week}.csv";
open my $KPIs_fa_INFILE, q{<}, $KPIs_fa_infile or die; 

my $capa_fa_infile = "all_capa_fa_${week}.csv";
open my $capa_fa_INFILE, q{<}, $capa_fa_infile or die; 

my $KPIs_fa_outfile_with_capa_infos = "KPIs_fa_TACT_${week}_capa.csv";
open my $KPIs_fa_OUTFILE_capa, q{>}, $KPIs_fa_outfile_with_capa_infos or die; 

my %KPI;
while(my $line = <$KPIs_fa_INFILE>){
	$line =~ s/\s+$//;
	my @Elements = split /;/, $line;
	# on enlève le premier element
	my $reg = shift(@Elements);
	$KPI{$reg}= join ";", @Elements;
}
close $KPIs_fa_INFILE;

my %capa;
while(my $line = <$capa_fa_INFILE>){
	$line =~ s/\s+$//;
	my @Elements = split /;/, $line;
	# on enlève le premier element
	my $reg = shift(@Elements);
	my $value = join ";", @Elements;
	$value = "$value;";
	#print STDOUT "the value is $value\n";
	push( @{$capa{$reg}}, $value );
}
close $capa_fa_INFILE;

my @KEYS = keys %KPI;
my $key;
foreach $key(@KEYS){
	if (exists $capa{$key}){
	#print $KPIs_fa_OUTFILE_capa $KPI{$key} $capa{$key};
	print $KPIs_fa_OUTFILE_capa "$key;$KPI{$key};@{$capa{$key}}\n";
	}
}	

close $KPIs_fa_OUTFILE_capa;