/usr/bin/perl
use strict;
use warnings;

use Data::Compare; # Note: you probably will have to install this from CPAN

# Load the first hash (bow1)

# Load the second hash (bow2)

# Now the magic --

my $rc = compare(\%bow1, \%bow2);

if ($rc) {
    print "Equality\n");
} else {
    print ("The hashes are not equal\n");
}

exit(0);