Select Code to Download

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

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