use Data::Compare;

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