@Names = split(/\|/, &getIAMparameter(IAMNames));
@Ip = split(/\|/, &getIAMparameter(IAMIp));

%ServerStatus = (  "$Ip[$i]"    =>  ["$Names[$i]",     "unknown"],
                   "$Ip[$i+1]"  =>  ["$Names[$i+1]",   "unknown"],
                   "$Ip[$i+2]"  =>  ["$Names[$i+1]",   "unknown"],
                   "$Ip[$i+3]"  =>  ["$Names[$i+1]",   "unknown"],
                   "$Ip[$i+4]"  =>  ["$Names[$i+1]",   "unknown"] );