my @ips = ();
my @names = ();

while (<DATA>) {
	chomp;
	my ($ip, $name) = split /\s+/, $_, 2;
	push @ips, $ip;
	push @names, $name;
}

use Data::Dumper;
print Dumper(\@ips, \@names);

__DATA__
192.168.89.1   acmeorp.acme.com
192.168.31.3   ftp.acme.com
192.168.19.179   [Unknown]