Perl で連想配列を関数に渡す

Perl で連想配列を関数に渡す
(通常の配列も同じ)

引数に\を付けて、参照渡しを用いる
(配列のポインタをスカラー変数として渡す)

&aaa(\%hogehoge) sub aaa{ my($list) = shift; my(%list) = %{$list}; while(($key , $value) = each %list){ print "$key = $value\n"; } }