変数をwhile文で扱い変数の一つ一つを取り出して変数の最後で終了するには？

Question

``変数をwhile文で扱い変数の一つ一つの要素を取り出して変数の最後で終了するにはどうすればいいでしょうか？
コード
#既存ファイルを読み込み、配列@aaa に入れる
open(IN,"<kokyakusyouhinjouhou/ID&sougousyouhindata.csv");
@aaa = <IN>;
close (IN);

$bbb = "";
$i=0;
$sub;
while(@aaa!=""){
while($sub!="\n"){
$sub=substr(@aaa,$i,1);
$bbb=$bbb+$sub;
$i=$i+1;
}
$sub=substr(@aaa,$i,1);
$bbb=$bbb+$sub;
while ($sub=" "){
$sub=(substr(@aaa,$i,1,"");
$bbb=$bbb+$sub;
$i=$i+1;
}
}

open(OUT,">kokyakusyouhinjouhou/ID&sougousyouhindata.csv");
print OUT "$bbb";
close(OUT);

Comments

[KojiDoi]

改善どころか前の質問(https://teratail.com/questions/107974)より質が落ちているのはどういう事でしょうか。 perl以前に質問の仕方が根本的に間違っています。

Answer 1

my @a = (1,3,5,7,9);

foreach my $b (@a){
    print "$b\n";
}