tie my %hash, 'Hash::DefaultValue', sub { uc };
say $hash{foo}; # says "FOO"