You're re-assigning the whole hash every time. Try:

%ServerStatus = ();
foreach my $i (0..$num) {
  $ServerStatus{$Ip[$i]} = [$Names[$i], 'unknown'];
}
[download]

I've also removed unnecessary quotes and converted to a more Perlesque foreach loop. An alternative method would be to use map to assign the whole hash:

%ServerStatus = map {($Ip[$_], [$Names[$_], 'unknown'])} 0..$num;
[download]