print {$FILE4} join("\t", (split /\t/, <$FILE1>)[0 .. 4]),"\n";