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

##</code><code>##

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