in reply to How to compare content of two references for equality?

Struct::Compare: 

use Struct::Compare;

print "same" if compare( $ref1, $ref2 );

[download]
CAVEAT: Struct::Compare doesn't handle blessed refs.

In Section Seekers of Perl Wisdom