perl -nle 'use List::MoreUtils qw/zip/; print zip @{[qw(こんな 感じに 文字を 挿入 したい)]}, @{[split(/,/)]};' data.csv > newfile.text