Select Code to Download

#!/usr/bin/perl
use warnings;
...
                           'DomainE'
                         ]
        };

for my $key (keys %h){
    for my $elem (@{ %h{$key} }){
        print "$key: $elem\n";
    }
}