Select Code to Download

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

%ServerStatus = map{ 
    $Ip[$_] => [ $Names[$_], "unknown" ] 
} 0 .. $#Ip;