It doesn't work . I would like to understand. Did i forget something?

Just these:

• A detailed specification of the way in which it "doesn't work"
• The precise, full text of the error message you received
• An SSCCE demonstrating the problem in a reproducible manner

Without these the problem could simply be a typo in your code and nobody would ever know. Help others to help you.

Yes . Much for me. I forgot output:

When i do :

my $firstName = $config->{name};
[download]

I get the following output :

Use of uninitialized value $firstName in print atline 115.
[download]

And when i do that :

my $firstName = ${$config->{programs}}[1];
[download]

i get output below :

HASH(0x3e25178)
[download]

If i do :

my $firstName = ${$config->{programs}}[0];
[download]

i obtain in my output:

VIKTOR DESCRIPTION PRODUCT
[download]

*****Lost in translation****TIMTOWTOI****

Well, that's a start for sure. Since you still haven't provided an SSCCE, here's one:

#!/usr/bin/env perl 
use strict;
use warnings;

my $config = {
    programs => [
        'VIKTOR DESCRIPTION PRODUCT' => {
            name => 'VIKTOR ',
            parameters => [
                Count_id                           => '06 (Viktor)',
            ]
        }
    ]
};

print $config->{programs}->[1]->{name} . "\n";
[download]

IMHO that config file is a mess. Running it with a do or an eval is dangerous as others have mentioned and its structure is arcane at best. I hope for your sake that it's all some big XY problem and the actual task can be solved in an entirely different manner.