my %ips_names;
while (<DATA>) {
       $ips_names{(split)[0]} = (split)[1];
}