引数でハッシュを渡す

サブルーチンでハッシュを渡してるつもりがうまくいっておらず、調べたらどうもこれではいけないらしい。

  sub hash {
  my %hash = shift;
  ....
  }

いろいろ調べたが参照渡しでこんな風にすることにした。

  sub hash(\%) {
    my $hash = shift;
    my %hash = %{$hash};
    ....
  }

参照渡しの意味がないですね・・・
でもほかにやり方がわからないんだもん。