while (<DATA>) {
        chomp;
        push @ips, (split)[0];
        push @names, (split)[1];
}

##</code><code>##

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