use Tie::Hash::SaveConfig;
my %hash = ();
tie %hash,'Tie::Hash::SaveConfig';
%hash = (Foo=>"Bar");