perlで二次元配列の書き方について

.#.#....
.#.#....
........
.....#.#
.......#
......#.
........
.......#
........
........

このような10行＊8列計80個セルの入力データ（仮にsample.txt）があります。
perlでこのsample.txtからデータを読み込んで、一行一列ずつ二次元配列に代入したいです。

つまり＠hairetu[i][j]の形で任意位置の要素を抽出することができるようにしたいです。
例：
@hairetu[1][1]は"#"が表示
@hairetu[3][2]は"."が表示

自分のコードは一行目は1つの要素として認識されてしまったので、うまくいかなかったです。
コードは以下となります。どういう風に書けばいいのか、プロな方教えて頂ければ幸いです。

#!/usr/bin/perl

my @hairetu;
my $i = 0;

my $file = 'sample.txt';
open (IN, $file) or die "$!";

while (my $ = <IN>) {
   chomp($data);
   $hairetu[$i] = $data;
   $i = $i + 1
}

$length = @hairetu;
# print $length;
for( $i=0 ; $i<@hairetu ; ++$i )
{
   print $hairetu[$i] . "\n";
}