Select Code to Download

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

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