使用perl以CSV格式打印数据

Question

我有一个.txt文件，我需要从中将数据转储到csv中。问题是两列CSV具有动态大小调整，我需要相应地打印它。

Image("large")
   .resizable()
   .clipShape(Circle())
   .frame(width: 200.0, height: 200.0)
   .overlay(Circle().stroke(Color.white,lineWidth:4).shadow(radius: 10))

很明显，我的打印取决于B和C列，那么如何使用Perl执行相同的操作？