#!/usr/bin/awk -f

BEGIN { FS = "\t" }

FNR == 1 {
    split("", Fields)	# clear fields array
    for (i = 1; i <= NF; i++) Fields[i] = $i
    next
}

{ for (i = 1; i <= NF; i++) print $i > Fields[i] }