$ perl -MHash::Util=lock_keys -wle 'my %x; lock_keys %x; exists $x{a}{b}'
Attempt to access disallowed key 'a' in a restricted hash at -e line 1.