use Test::Deep;

if (eq_deeply($hash1, $hash2))
{
  print "they match"
}