Have you tried the Data::Compare module? I use it frequently...

use Data::Compare;

print "same\n" if Compare $obj_1, $obj_2;
[download]

If they aren't the same, Compare() large chunks of the module at a time, until you find out where they aren't the same, and it'll to lead you to other ways to test/bypass those sections.