Select Code to Download

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

while ( ($ip, $a) = each (%hosts)) {
             foreach $line (@final) {
...
              print FQDN $_;
              }
      }