my %ServerStatus; @ServerStatus{split( /\|/, getIAMparameter('IAMIp'))} = map {[$_,'unknown']} split /\|/, gwtIAMparameter('IAMNames');