$VAR1 = {
          'Ad1' => [
                                  '0A78',
                                  '0A9E',
                                  '0AB9',
                                  '0AC0',
                                  
                                ],
          'Ad2' => [
                                  '0A78',
                                  '0A9E',
                                  '0AB9',
                                  '0AC0',
                                                                                ]
        };


##</code><code>##

#!perl
use strict ; 
use warnings ; 
my $refcomp= {
          'Ad1' => [
                                  '0A78',
                                  '0A9E',
                                  '0AB9',
                                  '0AC0',
                                  
                                ],
          'Ad2' => [
                                  '0A78',
                                  '0A9E',
                                  '0AB9',
                                  '0AC0',
                                                                                ]
        };

my %comp =%$refcomp ;  # my code uses a hash, not a ref, so ...

my %found ; 
if (scalar keys %comp > 1 ) {
	for my $adress (keys %comp) {
		for my $dev ( @{$comp{$adress}} ) { $found{$dev}++ } 
	}	
}
	
my %uniq ; 
for my $it (values %found) { $uniq{$it}++ } ; 

if ( scalar keys %uniq > 1 ) { 
	print "ERR : Problem in device list\n"  ; 
}