Looks like you are having trouble de-referencing the AOH @nameserver. Here is how I would do it:

for my $nshash (@namesvr) {
        $nshash->{RESOLVER}  = Net::DNS::Resolver->new (
             nameservers => [$nshash->{NAME}],
             recurse     => 1, ## do recursive lookups
             retry       => 1,
             debug       => 0,
             );
    
}
[download]

This produces and saves a RESOLVER object entry for each name server. You can now pass this into nsquery thus:

   my $ptr = nsqry($namesvr[$ids]->{RESOLVER}, $ip) ;
[download]

By the way, you should really have a my in front of ($res, $IP) inside the sub nsqry. Without that, you will be using globals, which may have un-intended side-effects, and is bad practice anyway.