while (defined(my $intensities = $INTENSITY_FILE->getline())) {
	my @intensities=split(/\t/,$intensities);
	@final_array=();
	foreach($index=3;$index<scalar(@intensities);$index+=3) {
	push(@index_intensities,($index+1,$index+2));
	}
	push(@final_array,(@intensities[@index_intensities]));
	print OUTFILE join("\t",@final_array);
}