while ( ($key, $value) = each(%KPI) ) {
      $key=$value;
      print "key =$key : value =$value \n";
}