require 5.8.0;   ## in order to write NSANS format to a scalar
use strict;

   foreach $ns_answer (@ns_answer) {
          open(NSANS,">", \$ns_holder) or die("bla..\n");
           write NSANS;
           print OFILE $ns_holder;
           close(NSANS);
           }

format OFILE=     ## for the disk file report 
@<<<<<<<<<<<<<<<  @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$adr,             $ptr_answer
.


format NSANS=     ## written to handle, then to scalar, then printed to OFILE
                  @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                  $ns_answer
.