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]

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.

^^. Thanks it's perfect .

It works . But i added this variable however :

  my %programs = @{ $config->{programs} };
[download]

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