%hash=@$row;

##</code><code>##

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