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