my @columnheadings=split(/\t/,<$FILE1>);
@columnheadings=@columnheadings[map{$_}(0..4)];
print $FILE4 "@columnheadings\n";