tie my %hash, 'Tie::Hash::MyTwoWay'; ... $hash->primary()->delete("foo"); $hash->secondary()->delete("foo");