#!/usr/bin/perl
use strict;

foreach my $file (@ARGV){
	my $out="";
	open(FI,"< $file") or die "error by opening input file";
	
	foreach my $line (<FI>){
		my @array = split(/\t/, $line);
		$array[7] =~ s/\n//g;
		$out .= $array[0]."\t".$array[1]."\t".$array[2]."\t".$array[3]."\t".$array[7]."\t".$array[4]."\t".$array[5]."\t".$array[6]."\n";
	}
	open(FO,"> $file") or die "error by opening output file";
	print FO $out;
	#print $out;
}