Help for this page
Select Code to Download
Select
or
download this
print {$FILE4} join("\t", (split /\t/, <$FILE1>)[0 .. 4]),"\n";