use Config;
$obj = tied %Config;
$obj->{mydomain} = 'new value';

print $Config{mydomain}, "\n";

#outputs 'new value'