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";