質問です。
配列とハッシュの多次元構造をリファレンスとして渡してデータをいれたいのですが、どうしたら良いでしょうか。
やりたいのは以下のようなことです。

# 呼び出し元
&Foo( \$bar );

print $bar[0]{'name'};
print $bar[0]{'mail'};
print $bar[1]{'name'};
print $bar[1]{'mail'};
・・・

# 呼び出し先
sub Foo{
my $baz;
$baz = $_[0];

$baz->[0]{'name'} = 'yamada';
$baz->[0]{'mail'} = '[email protected]';
$baz->[1]{'name'} = 'tanaka';
$baz->[1]{'mail'} = '[email protected]';
}

言語はPerl、OSはCentOSです。
よろしくお願いします。