Here's a Data::Compare example:

use strict;
use warnings;

use Data::Compare;

my %aa = qw( uno 1 due 2 );
my %bb = qw( due 2 uno 11234325161111 );

print Compare( \%aa, \%bb ) ? "Equal!\n" : "Unequal!\n";
[download]