$ perl -MIO::All -F'/\t/' -lnae '@files = @F, next if 1 .. 1; @f = @files; $_ >> io(shift @f) for @F' <<EOF
id	name	position
1	Nick	boss
2	George	CEO
3	Christina	CTO
EOF
$ paste id name position
1	Nick	boss
2	George	CEO
3	Christina	CTO