#!/usr/bin/perl

use strict;
use warnings;
use Carp;
use Net::DNS;
use Data::Dumper;


my @domain = (
   { NAME => 'ns7.pyxis.com', IPLIST => [] } , ## Autovivification
   { NAME => 'wrnadc02.na.alarismed.com', IPLIST => [] }
) ;

my %IPinfo;    # HoH

for my $IP (qw ( 10.220.84.30 10.220.84.51 10.220.84.52
          10.220.84.54
          10.220.84.55 10.220.84.56 10.220.84.57
          10.220.84.58
          10.220.84.59 10.220.84.60 10.220.84.61
          10.220.84.62
          10.220.84.64 10.220.84.65 10.220.84.70
          10.220.84.71
          10.220.84.72 10.220.84.73 10.220.84.74  )) {

 $IPinfo{$IP} = {DOMAININDEX => undef,  TYPE => "CLIENT" } ;
                 }


    for my $ip (keys %IPinfo) {
        for my $domids (0..$#domain) {
            my $ptr = nsqry($domain[$domids]->{NAME}, $ip) ;  
            next unless $ptr ; # No change, if $ptr is empty
            $IPinfo{$ip}{DOMAININDEX} = $domids ; 
            $IPinfo{$ip}{PTR} = $ptr ;
            push @{$domain[$domids]->{IPLIST}}, $ip ; 
        }
    }

    sub nsqry {

    my ( $nssvr,  @clients ) = @_ ;

    my $res = Net::DNS::Resolver->new (
    nameservers => [$nssvr],
    recurse     => 1, ## do recursive lookups
    retry       => 1,
    debug       => 0,
    ) ;

        for my $client (@clients) {
            my $query = $res->search($client) ;
            if ($query) {
                for my $rr ($query->answer) {
                    next unless ($rr->type eq "PTR"); 
                    print $rr->ptrdname, "\n" ;
                }
            }
            else {
                 warn "query failed: ", $res->errorstring, "\n" ;
            }
       }
   }

print Dumper(\@domain);

$VAR1 = [
          {
            'NAME' => 'ns7.pyxis.com',
            'IPLIST' => []
          },
          {
            'NAME' => 'wrnadc02.na.alarismed.com',
            'IPLIST' => []
          }
        ];
[download]

It is not clear what you are trying to achieve.

Your code shows attempts to explicitly specify domain name servers. Some issues that leave your approach and objectives hazy are:

• You explicitly specify Name SERVERS, not domain names. This is OK, if all you want are PTR records.
• 'wrnadc02.na.alarismed.com' does not seem to exist. In fact the "na" subdomain does not seem to exist
• "alarismed.com" seems to have the same name server(s) as "pyxis.com", so the reason for specifying different Name servers is not clear.
• You are re-creating a new $res object for each query.
If your "sub nsqry" works as you expect, the only change necessary is to "return $rr->ptrdname" after (or instead of) printing it.On failure, "return undef".

You can also use a modified example from the Net::DNS docs:

sub new-nsqry{
  my ($res, $IP) = @_;  # Note: $res is created OUTSIDE the sub ...
 
  my $query = $res->query($IP, "PTR");
  
  if ($query) {
      foreach $rr (grep { $_->type eq 'PTR' } $query->answer) {
          print $rr->ptrdname, " : $IP\n";
          return $rr->ptrdname;
      }
      return undef;
  }
  else {
      warn "query failed for $IP: ", $res->errorstring, "\n";
      return undef;
  }
}
[download]

     "As you get older three things happen. The first is your memory goes, and I can't remember the other two... " - Sir Norman Wisdom

I am trying to achieve lookups for each IP in each nameserver, telling me success or no success.

We can disregard your first three bullet points, but the fourth yes I should only need to create one object. But since I have two nameservers, I need to lookup all these IPs twice, once in each nameserver. So do I still need one object? If so how do I dereference it? This code right below works, but no sure how to implement in the $res object code?

#for my $ns (@namesvr) {
#    for my $keys (sort keys %$ns) {
#        print "$keys => $ns->{$keys}\n";
#    }
#    print "\n";
#}
#exit;
[download]

#!/usr/bin/perl

use strict;
use warnings;
use Carp;
use Net::DNS;
use Data::Dumper;

## AoH
my @namesvr = (
               { NAME => 'ns#.xxxx.com',             IPLIST => [] } , 
+## Autovivification
               { NAME => 'wrnaxxxx.xx.xxxxx.com', IPLIST => [] }
             ) ;

#print Dumper(\@namesvr);exit;

my %IPinfo;    ##  HoH

for my $IP (qw ( 10.220.84.30 10.220.84.51 10.220.84.52
                 10.220.84.54
                 10.220.84.55 10.220.84.56 10.220.84.57
                 10.220.84.58
            )) {

                 $IPinfo{$IP} = {DOMAININDEX => undef,  TYPE => "CLIEN
+T" } ;
               }


our ( $res, $IP ) ;
for my $ns (@namesvr) {
    for my $keys (sort keys %$ns) {
        $res = Net::DNS::Resolver->new (
        nameservers => [$ns->{$keys}],
        recurse     => 1, ## do recursive lookups
        retry       => 1,
        debug       => 0,
        );
    }
}

for my $ip (keys %IPinfo) {
    for my $ids (0..$#namesvr) {
        my $ptr = nsqry($namesvr[$ids]->{NAME}, $ip) ; # nsqry has bee
+n modified to return the info
        next unless $ptr ; # No change, if $ptr is empty
        $IPinfo{$ip}{DOMAININDEX} = $ids ; # Forward ref from IP to DO
+MAIN
        $IPinfo{$ip}{PTR} = $ptr ;
        push @{$namesvr[$ids]->{IPLIST}}, $ip ; # Keep a list of IP's 
+that live in this domain
    }
}

sub nsqry {

    ( $res, $IP ) = @_ ;
    my $query = $res->query($IP, 'PTR') ;
    if ($query) {
        for my $rr ($query->answer) {
            next unless ($rr->type eq 'PTR') ; ## skip record if not e
+q PTR ##
            print  $rr->ptrdname  ;
            return $rr->ptrdname  ;
        }
        return undef ;
    }
    else {
         carp "query failed for $IP: ", $res->errorstring, "\n" ;
         return undef ;
    }
}
[download]