Add perl hash function