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