Perhaps Data::Compare would come in handy?

And depending on your purposes for comparison, Class::MakeMethods::Utility::Ref looks like it's ref_compare() function might be of some use, too.

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]