in reply to display correction

Change this statement: 
print $KPIs_fa_OUTFILE_capa "$key;$KPI{$key};@{$capa{$key}}\n";

[download]
to this (untested): 
my $info = "$key;$KPI{$key}";
for my $capa (@{$cala{$key}}){
   print $KPIs_fa_OUTFILE_capa "$info;$capa\n";
   $info=";;;;"
}

[download]

     "As you get older three things happen. The first is your memory goes, and I can't remember the other two... " - Sir Norman Wisdom

In Section Seekers of Perl Wisdom