Select Code to Download

$VAR1 = {
          'Ad1' => [
...
                                                                      
+          ]
        };

#!perl
use strict ; 
...
if ( scalar keys %uniq > 1 ) { 
    print "ERR : Problem in device list\n"  ; 
}