sub write2 {
        print OUF "$in2[1]\tnull\tnull\t$in2[0]\t$in2[2]\n";
        getrec2;
}