use Data::Dumper; print "same" if Dumper($hashref1) eq Dumper($hashref2); [download]
In reply to Re: Tree comparisons by jZed in thread Tree comparisons by shemp