Print perl hashes