#!perl
use strict ; 
use warnings ; 
use Data::Dumper;

my $refcomp= {
          'Ad1' => [
                                  '0A78',
                                  '0A9E',
                                  '0AB9',
                                  '0AC0',
                                  
                                ],
          'Ad2' => [
                                  '0A78',
                                  '0A9E',
                                  '0AB9',
                                  '0AC0',
                                                                      
+          ]
        };
# sort the arrays if not already all in order 
if ( "sort needed" eq "sort needed" ) {
    while ( my ( $k, $v ) = each %$refcomp ) {
        $refcomp -> { $k } = \( sort @$v );
    }
}

# the test
my $lastref = '';
for my $curref ( values %$refcomp )
    if ( $lastref ) {
        Dumper( $lastref ) eq Dumper( $curref )
          or die "non-unique device list detected";
    }
    $lastref = $curref;
}