Replace this

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

With

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

Please note that quoting all your variables that way is

1. Unnecessary.
2. Is making you code harder to read than it need be, and requiring you to type more.
3. Making Perl work harder than it needs to.
4. Under some circumstances, can cause errors. Specifically, when passing variables to built-ins that expect pass-by-reference.

Also, you've misspelt %ServerStuatus. Not that I can say anything, my spelling is atrocious. But I always use strict, so if I later spell it correctly, Perl would warn me. Without it, as your code appears to be, it won't be able to.