open(RAUS,$outfile);

while (<REIN>) {
	chomp();
	@we = split(/\t/);
	$fix = "$we[0]\t$we[1]\t$we[2]\t$we[3]";
	$out1 = "$we[4]\t$we[5]\t$we[6]\t$we[7]\t$we[8]\t$we[9]\t$we[10]\t$we[11]\t$we[12]";
	print RAUS $fix ."\t" .$out1."\n"; 
} 
close(RAUS);
close(REIN);