perlでcsvファイルにデータを書き出す際に半角空白で文字列連結すると改行されてしまう。

Question

前提・実現したいこと

perlで2つのファイルからデータ抽出し、文字列連結しcsvに書き出すプログラムを作成しています。
2つのデータを半角空白で結合し、csvに書き出す機能を実装中に問題発生しました。

発生している問題・エラーメッセージ

csvを確認すると半角空白部分でデータが改行されている。
※keywordを「トヨタ プリウス」と表示させたい

campaign, adgroup, keyword 
その1,会社名_車種,トヨタ 
プリウス

該当のソースコード

my @out;
while(my $value01 = <@word_str01>){
	(my $ad_group01, my $ad_word01) = split(/,/,$value01);
	chomp $ad_group01;
	chomp $ad_word01;

	while(my $value02 = <@word_str02>){
	    (my $ad_group02, my $ad_word02) = split(/,/,$value02);
	    chomp $ad_group02;
	    chomp $ad_word02;
        #データ書き出し準備
        #ad_01とad_02のデータを連結する
        #キャンペーン名,グループ名１_グループ名２,KW01 KW02
		push @out,$ptn_name . "," . $ad_group01 . "_" .$ad_group02 . "," . $ad_word01 . ' ' . $ad_word02;
	}
}
#ファイルの出力
#出力件数
#最初だけ新規で開き、2件目以降は上書き
my $OUT;

if($index<1){
    open($OUT,">$out_file");
}else{
    open($OUT,">>$out_file");
}
#ヘッダの出力
if($index<1){
print $OUT "campaign, adgroup, keyword \n";
}
#キャンペーン、グループ名、KWを＄OUTに追記していく
while(my $value = <@out>){
print $OUT "$value\n";
}
close ($OUT);

試したこと

半角空白を”_”などの別の文字で置き換えた場合には改行されないことを確認

補足情報（FW/ツールのバージョンなど）

perl5.30

Answer 1

while(my $value = <@out>){
print $OUT "$value\n";
}
上記を
foreach $value (@out){
print $OUT "$value\n";
}
に変えてください。

my $value = <@out>の構文が正しいかどうかはわかりませんが、
上記の構文を実行した場合、
１つの要素中に空白があると、２つの要素として扱っているように見えます。

Comments

[churisuke]

修正したら直りました！！
ご指摘いただいた通り、1つの要素内に空白があるため2要素として判別されていたようです。

ありがとうございました。