You could have a look at Tie::Hash::TwoWay, however, be sure to read the 'pecularities' listed.

Hope this helps, -gjb-