>>258
すいません、実行しても何も表示されません。
エラーすら出ません。

use strict;

my @bar;

&Foo( \@bar );

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

exit;

sub Foo{
　　my $baz;
　　$baz = $_[0];

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