Perlコーディング初心者質問スレ Part 38

[0607 595 04/11/08 11:09:36 ID:IV2+5aK4]

@data = split(/\n/, <DAT>);
で代入したら、$data[0]にしか代入されていません。
どなたかよろしくお願いします。