This code provides details of where the problem occurs: 

my %comp = (
    'Ad1' => [ qw( 0A78 0A9E 0AB9 0AC0 ) ],
    'Ad2' => [ qw( 0A78 0A9E 0AB9 0AC0 ) ],
);

my %device;
my @locations = sort keys %comp;
for my $location (@locations) {
    for my $dev_name ( @{ $comp{$location} } ) {
        $device{$dev_name}{$location}++;
    }
}

my $expected_locations = join ',', @locations;
for my $dev_name ( sort keys %device ) {
    my $actual_locations = join ',', sort keys %{$device{$dev_name}};
    next if $expected_locations eq $actual_locations;
    print "ERR: '$dev_name' only found in '$actual_locations'\n";
}

[download]
By the way, if ( scalar keys %comp > 1 ) {...} can be reduced to if (%comp) {...}.

In reply to Re: Looping through arrays : are they equal ? by Util
in thread Looping through arrays : are they equal ? by ZlR

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.