while (<NS>) {
     $a = nslookup (host => "$_", type => "PTR");
          %hosts($_, $a);
}