$dimens=scalar(keys(%ind)); for ($jj=1; $jj <= $dimens; $jj++) { # Writing output mt reserve meas list print OUTFILE "$kpi[$jj]<\/mt>\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"; } ... ... ...