use Storable 'freeze';
$Storable::canonical = 1;
if (freeze(\%hash1) eq freeze(\%hash2))
{ # they're equal
}