Select Code to Download

my (@ips, @names);
while (<DATA>) {
...
    push @ips, $ip;
    push @names, $name;
}

my %hash  = map split, <DATA>;
my @ips   = keys %hash;
my @names = values %hash;