# Writing output from mt step until mv for reserve meas only $dimens=scalar(keys(%ind)); for ($jj=1; $jj <= $dimens; $jj++) { # Writing output mt reserve meas list print OUTFILE "$kpi[$jj]<\/mt>\n"; } foreach $value (keys %result) { foreach $ext (keys %{$result{$value}}) { print OUTFILE "\n"; print OUTFILE "$value".",resv="."$ext<\/value>\n"; for ($jk=1; $jk <= $dimens; $jk++) { # Writing output r meas list result sorted in the same order than mt list print OUTFILE "$result{$value}{$ext}{$kpi[$jk]}\n"; } print OUTFILE "<\/mv>\n"; } } print OUTFILE "$line\n";