use Hash::Util qw( lock_keys );

my %doc = ( filename => '', fileID => undef, tags => [] );
lock_keys(%doc);