foreach ($i=0;$i<=$num;$i++) { %ServerStuatus = ( "$Ip[$i]" => ["$Names[$i]", "unknown"] ); } #### %ServerStatus = map{ $Ip[$_] => [ $Names[$_], "unknown" ] } 0 .. $#Ip;