You were almost there. Just join the array back. And note that map{$_}(0..4) is just the same as 0..4 itself, so you can write:

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