for (@CD_new_a_v_d_D) {
        if ($key eq $_) {
            print "$key - $value\n";
        }
    }