複数行（行数不明）のファイル（test.txt）
--test.txt--------------
1=2=3
4=5=6
・
・
・
7=8=9
------------------------


open(FIL, "test.txt")
@mes = <FIL>;

foreach(@mes){
@w = split(/=/, $_);
push( @$DataArray, \@w );
}
print LOG "[0][0]:$DataArray->[0][0]\n";
print LOG "[1][0]:$DataArray->[1][0]\n";

結果が以下ののようになり最後のレコード分のデータしか格納されません。
[0][0]:7
[1][0]:7
どなたか、全てのデータを上手く格納する方法教えて頂けないでしょうか。