my %gen_data = (
    lri => { major_version => 1,
             minor_version => 10,
             is_integration_flag_active => FALSE,
             module_id => 0x01, 
             output_file => "D:/out.sre"
    },
    pm => { major_version => 4,
            minor_version => 2,
            build_version => 82,
            input_file    => "D:/in.s3"
    },
    gp => { is_active           => TRUE,
            major_version       => 3,
            minor_version       => 4,
            build_version       => 7341,
            nb_bytes_data_field => 16,
            root_path           => "D:/temp_path",
            tranche             => T2
    });

##</code><code>##

    # lri
    $q->enqueue($ref_gen_data->{'lri'}{'major_version'},
                $ref_gen_data->{'lri'}{'minor_version'},
                $ref_gen_data->{'lri'}{'is_integration_flag_active'},
                $ref_gen_data->{'lri'}{'module_id'},
                $ref_gen_data->{'lri'}{'output_file'});

    # pm
    $q->enqueue($ref_gen_data->{'pm'}{'major_version'},
                $ref_gen_data->{'pm'}{'minor_version'},
                $ref_gen_data->{'pm'}{'build_version'},
                $ref_gen_data->{'pm'}{'input_file'});
    
    # gp
    $q->enqueue($ref_gen_data->{'gp'}{'is_active'},
                $ref_gen_data->{'gp'}{'major_version'},
                $ref_gen_data->{'gp'}{'minor_version'},
                $ref_gen_data->{'gp'}{'build_version'},
                $ref_gen_data->{'gp'}{'nb_bytes_data_field'},
                $ref_gen_data->{'gp'}{'root_path'},
                $ref_gen_data->{'gp'}{'tranche'});
##</code><code>##

            my %gen_data;

            # lri
            $gen_data{'lri'}{'major_version'} = $q->dequeue();
            $gen_data{'lri'}{'minor_version'} = $q->dequeue();
            $gen_data{'lri'}{'is_integration_flag_active'} = $q->dequeue();
            $gen_data{'lri'}{'module_id'} = $q->dequeue();
            $gen_data{'lri'}{'output_file'} = $q->dequeue();
            
            # pm
            $gen_data{'pm'}{'major_version'} = $q->dequeue();
            $gen_data{'pm'}{'minor_version'} = $q->dequeue();
            $gen_data{'pm'}{'build_version'} = $q->dequeue();
            $gen_data{'pm'}{'input_file'} = $q->dequeue();           
            
            # gp
            $gen_data{'gp'}{'is_active'} = $q->dequeue();
            $gen_data{'gp'}{'major_version'} = $q->dequeue();
            $gen_data{'gp'}{'minor_version'} = $q->dequeue();
            $gen_data{'gp'}{'build_version'} = $q->dequeue();
            $gen_data{'gp'}{'nb_bytes_data_field'} = $q->dequeue();
            $gen_data{'gp'}{'root_path'} = $q->dequeue();
            $gen_data{'gp'}{'tranche'} = $q->dequeue();
##</code><code>##

    # lri
    $q->enqueue($ref_gen_data->{'lri'}{'major_version'},
                $ref_gen_data->{'lri'}{'minor_version'},
                $ref_gen_data->{'lri'}{'is_integration_flag_active'},
                $ref_gen_data->{'lri'}{'module_id'},
                $ref_gen_data->{'lri'}{'output_file'});

    # pm
    $q->enqueue($ref_gen_data->{'pm'}{'major_version'},
                $ref_gen_data->{'pm'}{'minor_version'},
                $ref_gen_data->{'pm'}{'build_version'},
                $ref_gen_data->{'pm'}{'input_file'});
    
    # gp
    $q->enqueue($ref_gen_data->{'gp'}{'is_active'},                
                3,
                4,
                $ref_gen_data->{'gp'}{'build_version'},
                $ref_gen_data->{'gp'}{'nb_bytes_data_field'},
                $ref_gen_data->{'gp'}{'root_path'},
                $ref_gen_data->{'gp'}{'tranche'});