Select Code to Download

for my $key (keys %AoH) {
    for my $domain qw(ns7.xxx.com wrnadc02.xx.xxxxxx.com) {
        nsqry($domain, $_ ) for @{$AoH{$key}} ;
    }
}

my @domain = ( {NAME => 'ns7.xxx.com',              IPLIST => []} # IP
+LIST gets populated dynamically, as discovered
...
           next OUTER; # we bail after the first domain found (More ef
+ficient)
         }
}