CSVをPerlで処理したいのだけど…

ものすごく初歩的なところでハマっているのかもしてないけど、とりあえず書いておく。

1,1,1,1,1,1,1

2,2,2,2,2,2,2

3,3,3,3,3,3,3

というようなCSVファイルがあって、これをPerlで読み込みたいとき

open (FILE,"test.csv);
my @data = <FILE>;

while(@data) {
  chomp;
  @column = split(/,/,$_);
  ・・・
}

とか書くとおもうのだけど、このwhile文が永久ループになってしまう。

単純にファイルハンドルからリスト変数に代入しているだけなんだけど。@dataの代わりにwhile()とするとちゃんとループが終了するから、リストに代入した時点でおかしくなってるのかなぁ…

データが悪いのか、凡ミスしてるのか今のところ原因不明。