Select Code to Download

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

...
                   "$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"] );
}