my @Non_Matching_Keys;
foreach $key (keys %HoL_compare_pub) {
    my @orig_a = @{$HoL_pub{$key)};
    my @comp_a = @{%HoL_compare_pub{$key}};
    foreach(0 .. @orig_a) {
        if($orig_a[$_] ne $comp_a[$_]) {
            push @Non_Matching_Keys, $key;
        }
    }
}