my ( $host, $ip ) = @$row; 
%hash{$host} = $ip;