$ServerStatus{ $Ip[$i] } = [ $Names[$i], "unknown" ];

##</code><code>##

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