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

foreach ($i=0;$i<=$num;$i++) {
    %ServerStatus = ( "$Ip[$i]" => ["$Names[$i]",   "unknown"] );
}