use Socket; while (my $item = ) { if (my $ip = gethostbyname($item)) { $hash{$ip} = gethostbyaddr($ip, AF_INET) || $item; } else { # no such hostname } } print "Unique items:\n"; print "$hash{$_}\n" for keys %hash;