if ($hosts->{$ip}) {
  print STDERR "Line $l: Warning: duplicate IP entry $ip, the last one will be used\n";
  }