Select Code to Download

use warnings;
use strict;
...
CustomerB@@@DomainC
CustomerB@@@DomainD
CustomerB@@@DomainE

$VAR1 = {
          'CustomerA' => [
...
                           'DomainE'
                         ]
        };