perl ->用法

$tags[1][0] = "a";
$tags[1][1] = "b";
$tags[1][2] = "c";
$mature = \@tags;
$b = $$mature[1];
#等同于
$c = $mature->[1];
print $b,"\n";
print $c,"\n";

$tags[1][0] = "a";
$tags[1][1] = "b";
$tags[1][2] = "c";
$mature = $tags[1];

$c = $mature->[1];

print $c,"\n";