sub write1 {
        print OUF "$in1[2]\t$in1[0]\t$in1[1]\tnull\tnull\n";
        getrec1;
}