5.3 不変キーまたは不変値をもつハッシュを作成する。

# Hash::Utilが提供する関数を使用
use Hash::Util qw{ lock_keys  unlock_keys
                                 lock_value unrock_value
                                 lock_hash  unlock_key };
lock_keys(%hash);     # 現在のキーのみに制限する
lock_keys(%hash, @klist);    # @klist内のキーのみに制限する。