$\="\n";
while (<DATA>) {
    @F = split;
    unless (@FH) {
        open $FH[@FH], ">", "$_.txt" for @F;
    } else {
        print $_ shift @F for @FH;
    }
}
__DATA__
id  name  position
1   Nick  boss
2   George CEO
3   Christina CTO