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