Select Code to Download

    my $hash_add = {
                       $cat => [{
...
    for (keys %$hash_add) {
        $xml->{policies}->[0]->{$_} = $hash_add->{$_};
    }