tie(%hash, 'My::Hash::Tie::Class', @args);

##</code><code>##

my $obj = tied(%hash);

##</code><code>##

my %newhash = Foo($obj);