use Data::Dumper;
print "same" if Dumper($hashref1) eq Dumper($hashref2);