Select Code to Download

my %comp = (
    'Ad1' => [ qw( 0A78 0A9E 0AB9 0AC0 ) ],
...
    next if $expected_locations eq $actual_locations;
    print "ERR: '$dev_name' only found in '$actual_locations'\n";
}