if (!$name_cache{$ip}) {
   $name_cache{$ip} = nslookup(host => $ip, type => "PTR") || $ip;
}

my $name = $name_cache{$ip};