ここを見ると、連想配列を関数の引数として渡すときは、変数名の前に"\%" をつける。 foo(\%arg); 受けるときは、 sub foo(%) { my ($tmp) = @_; my %arg = %$tmp; print $arg['key'] . "\n"; } とするか、変数名の前に"$$" をつけるといいらしい。 sub foo(…