You pass an array to nsqry like so:

nsqry($domain, @{$AoH{$key}} ) ;
[download]

but, in nsqry you only pick up the first element of the array with

my $nssvr  = shift @_ ;
my $client = shift @_ ;
[download]

You could get all the IP addresses you pass to nsqry by using

my $nssvr   = shift @_ ;
my @clients = @_ ;
[download]

and then you'd have to loop over your existing code with something like:

for my $client ( @clients ) {
    ...
}
[download]

update: Errors pointed out by jasonk corrected. Thanks jasonk