use Hash::Util 'lock_keys';
my $hash = h2o { foo => "bar", x => "y" }, qw/ more keys /;

lock_keys $hash;

print $hash->{ foo }, "\n";  # prints "bar"
$hash->{ x } = "z";  # setter

$hash->{batman} = 'secret'; # dies