use Data::Compare;

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