#!/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";