Select Code to Download

print $KPIs_fa_OUTFILE_capa "$key;$KPI{$key};@{$capa{$key}}\n";

my $info = "$key;$KPI{$key}";
for my $capa (@{$cala{$key}}){
   print $KPIs_fa_OUTFILE_capa "$info;$capa\n";
   $info=";;;;"
}