ActivePerlで連想配列をリファレンス渡しするには

　Perlで、連想配列をリファレンス渡しするサンプルで、下記のようになっている
ものが多いがうまくいかない。

---

my %hash;

function(\%hash);

while( ($key,$value)=each(%hash) ){

 
}

sub functio(){
 my($hash)=@_;

 %$hash=....

}

---

 v5.8.6 built for MSWin32-x86-multi-threadでは、function中で、
%$hashとするとsyntax errorとなる。$$hashとすると、連想配列
として使えた（key,valueの追加）。function呼出し後、呼び出し元でも参照できた。

 eachに渡す際は%$hashでエラーがでなかった。不思議。。。。