I don't think a simple solution was being asked for - just a solution ;-)

Equality is a bit of a bugger since it can mean so many different things. Perl gives us string and number equality - but their are others. For example Common Lisp provides eq, eql, equal, =, string-equal and char-equal - which all do slightly different things.

I miss "the same object" equals quite a bit in my coding (eq in Common Lisp). waxmop wants something like Common Lisp's equal.