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

use Data::Compare;

my %h = (a => [1, 2, 3], b => [1, 2], c => 3);
my %x = (a => [1, 2], b => [1, 2], c => 3);

for (keys %h){
    my $y = Compare($h{$_}, $x{$_});  
    print "$_ :: $y\n";
}

__END__
$ ./comp.pl 
a :: 0
b :: 1
c :: 1