Perlで参照のクリアの方法

Perlで参照のクリアで困っているのですが、以下のソースで正しくクリア方法はありますか？

use strict;
use warnings;
use Data::Dumper;

sub test {
my ($arrayref) = @_;
$$arrayref[2]{'A'}= 'aaaaa';

#$$arrayref = (); # Not a SCALAR reference at test_0042.pl line 10.
$arrayref = (); #←クリアしているが、Dumperするとクリアされていない

}

my @A = ();

print Dumper(@A);
print "\n";

test(\@A);

print Dumper(@A);
print "\n";

exit;

__END__


$VAR1 = undef;
$VAR2 = undef;
$VAR3 = {
'A' => 'aaaaa'
};

No.1 ベストアンサー 回答者： Ceren 回答日時： 2007/07/05 17:43

> $arrayref = (); #←クリアしているが、Dumperするとクリアされていない

$arrayrefは「配列の参照」なのですから、それをクリアするのであれば
@$arrayref=();
ではないですか？

No.3 回答者： vsba23895 回答日時： 2007/07/06 06:44

>$arrayref = ();

undef(@$arrayref);

-----------------
$arrayref は、test() 内に渡って来た参照値に過ぎず、
その値を変更しても、呼び出し元の @$arrayref (つまり @A)の
内容は不変です。

No.2 回答者： g_p_ 回答日時： 2007/07/05 17:45

こんにちは、

>$arrayref = ();
リファレンスを格納した $arrayrefに空のリストを代入している事になってます。

@{$arrayref} = ();
こうしたらどうでしょう？
配列全体を指すリファレンスをデリファレンスするには、
そう書くしかないかもです。