scanning hash

hotshot has asked for the wisdom of the Perl Monks concerning the following question:

Hi all!

I need a quick loop for scanning a hash and return true if all hash values equal each other.

Thanks