perl Tie-EncryptedHash