連想配列の引数受け渡し

ここを見ると、連想配列を関数の引数として渡すときは、変数名の前に"\%" をつける。

 foo(\%arg);

受けるときは、

 sub foo(%) {
   my ($tmp) = @_;
   my %arg = %$tmp;
   print $arg['key'] . "\n";
 }

とするか、変数名の前に"$$" をつけるといいらしい。

 sub foo(%) {
   my ($arg) = @_;
   print $$arg['key'] . "\n";
 }

う〜む、よくわからん。