if ($i==0){
      print MYOUTFILE "$A,$B,n/a\n";
      print STDOUT "$A,$B,n/a\n";
    }