@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"] ); #### @Names = split(/\|/, &getIAMparameter(IAMNames)); @Ip = split(/\|/, &getIAMparameter(IAMIp)); $num = $#Ip; foreach ($i=0;$i<=$num;$i++) { %ServerStatus = ( "$Ip[$i]" => ["$Names[$i]", "unknown"] ); }