my ( $id, $area, $cpu, $ip, $ip2 ) = @{$IpInfo->[0]};