sub writeboth {
        print OUF "$in1[2]\t$in1[0]\t$in1[1]\t$in2[0]\t$in2[2]\n";
        getrec1;
        getrec2;
}