【perl】scilab用データ変換

#ファイルオープン
open(READ_FILE,"＜abc2.txt");
#１行づつ読み込む
while($read_data = ＜READ_FILE＞)
{
#スペース区切りを分解
@foo = split (/￥s+/, $read_data);
#配列の長さを調べる
$length = @foo;
for ($xx = 1; $xx ＜= $length; $xx++) {
$yy = $xx -1;
#値の入っているもののみ、配列ａへ格納
unless($foo[$yy] == ""){
push(@a, $foo[$yy]);
}
}
}

#ファイルを閉じる
close(READ_FILE);

#配列の長さを調べる
$length = @a;
for ($xx = 1; $xx ＜= $length; $xx++) {
print $a[$xx-1];
#カンマを追加しcsv形式に変換
print ",";
#10項目ごとに改行
if( ($xx % 10) == 0 ) { print "\n"; }
}