while (<$fh>) {
   chomp;
   my ($host, $ip) = split;
   warn("bad hosts line: $_"),next if !defined $ip;
   $hosts{$host} = $ip;
}