csvのデータを2次元配列に格納したい

Question

###前提・実現したいこと
data2.txtというテキストファイルがあります。

"aaa1","bbb1","ccc1","ddd1"
"aaa2","bbb2","ccc2","ddd2"
"aaa3","bbb3","ccc3","ddd3"
"aaa4","bbb4","ccc4","ddd4"

data2.txtの""で囲った文字列を2次元配列の要素に格納したいです。
array[0][0] = "aaa1"
array[1][0] = "bbb1"
array[2][0] = "ccc1"
array[3][0] = "ddd1"
array[0][1] = "aaa2"
~
array[3][3] = "ddd4"

###ご依頼
上記の内容を実現できるソースコードを作成しました。
ソースコードは以下の通りです。
以下のソースコードよりスマートな記述内容がありましたらご教示頂けませんでしょうか。

open my $fh, "<", "data2.txt" or die $!;
while (my $hairetsu = <$fh>) {
    my @hairetsu = $hairetsu =~ /"[^,]*"/g;
	my @hairetsu2 = ();
	my $i = 0;
	$hairetsu2[0][$i] = "@hairetsu[0]";	
	$hairetsu2[1][$i] = "@hairetsu[1]";
	$hairetsu2[2][$i] = "@hairetsu[2]";
	$hairetsu2[3][$i] = "@hairetsu[3]";
	print("$hairetsu2[0][$i]\n");
	print("$hairetsu2[1][$i]\n");
	print("$hairetsu2[2][$i]\n");
	print("$hairetsu2[3][$i]\n");
	$i = $i++;
}
close $fh;

###出力結果

Scalar value @hairetsu[0] better written as $hairetsu[0] at C:\xampp\htdocs\test\test2.pl line 6.
Scalar value @hairetsu[1] better written as $hairetsu[1] at C:\xampp\htdocs\test\test2.pl line 7.
Scalar value @hairetsu[2] better written as $hairetsu[2] at C:\xampp\htdocs\test\test2.pl line 8.
Scalar value @hairetsu[3] better written as $hairetsu[3] at C:\xampp\htdocs\test\test2.pl line 9.
"aaa1"
"bbb1"
"ccc1"
"ddd1"
"aaa2"
"bbb2"
"ccc2"
"ddd2"
"aaa3"
"bbb3"
"ccc3"
"ddd3"
"aaa4"
"bbb4"
"ccc4"
"ddd4"

###補足情報(言語/FW/ツール等のバージョンなど)
・Active Perl v5.24.1
・Windows 10 Home
・Sublime Text 2

Answer 1

普通に記載するなら、A.Ichiさんの解答で十分かと。
コードゴルフ的なスマートさを求めるなら

open my $fh, '<', 'data2.txt' or die $! ;
my @data = map { chomp ; [ split /,/ ]} <$fh> ;
close $fh ;

で、ダブルコーテーション込みで配列化されます。

Answer 2

スマートな記述内容ではないかもしれませんが

open (IN, "data2.txt") or die "$!";
my @data;
while(<IN>) {
    chomp($_);
    $_=~ s/"//g;
    my @buf = split(/,/, $_);
    push @data, [ @buf ];
}

Answer 3

「よりスマート」とか以前に、このスクリプトは意図通りには機能しないはずですね。

まず、
致命的なのは、ループの中で

my @hairetsu2;

としていること。
ループ回るたびに@hairetsu2はリセットされてしまいます。これでは最終行の内容しか保存されません。
そもそもループの外でこの配列を参照できないので、このコードは実質的に意味をなしません。

次に、

$hairetsu2[0][$i] = "@hairetsu[0]";

@hairetsuの中の「要素」を参照するときは、$hairetsu[0]です。perlインタプリタは一応処理はしてくれますが、Scalar value @hairetsu[0] better written ... と文句を言っています。

さらに、

$i = $i++;

$iは永遠に0のままです。$iを+1する「前」の値を$iに代入してしまうから。
単純に

$i++;

とすべきです。これに限らず、インクリメンタル・デクリメンタル演算子を他の演算子と混ぜて使うことは全くおすすめしません。計算の優先順位をきちんと把握しておかないと間違いの元です。少なくとも初級者のうちは、たかが数文字をケチることより、解りやすく間違いにくいコーディングを心がけるべきです。

さて、スクリプトの途中でprintを挟んで動作を確認するのは良い考えだったのですが、最終結果のチェックが出来ていないため数々の間違いを見逃す結果となっています。こういうとき、スクリプトの先頭で

use Data::Dumper;

と宣言しておくと、スクリプトの最後で

print Dumper @hairetsu2;

とすることで中身を直接確かめることが出来ます。