$nf="file1";
    open (NEWFILE, ">$nf");