【Perl 】初心者コーナーPart5

初心質問で申し訳ない。

@aに配列が保存されており、

&subxx($xx,$xx,\@a); #ってな具合でサブルーチンにリファレンスで渡したあと、

sub subxx{
$a = $#$_[2];
}
こういう風に、要素数を読みとろうとすると、なぜかエラーがでます。
どうすればいいんっしょ。

ちなみに、いったん別の変数へぶちこむと、正常に動くんですけどねえ。