perl Tie-CPHash