perl怎样把多个数组的内容按列输出到一个文件里面，各列用制表符分割

Question

题目如上

Answer 1

1234567name =['a1','a2','a3']seq=['seq11111','seqs22222','seq33333']f = open("F:/1.txt", "w+")f.write("name\tseq\n")for i in range(0, len(name)): f.write(name[i] + "\t" + seq[i] + "\n")f.close()