Select Code to Download

my %gen_data = (
    lri => { major_version => 1,
             minor_version => 10,
...
            root_path           => "D:/temp_path",
            tranche             => T2
    });

    # lri
    $q->enqueue($ref_gen_data->{'lri'}{'major_version'},
                $ref_gen_data->{'lri'}{'minor_version'},
...
                $ref_gen_data->{'gp'}{'nb_bytes_data_field'},
                $ref_gen_data->{'gp'}{'root_path'},
                $ref_gen_data->{'gp'}{'tranche'});

            my %gen_data;

            # lri
...
            $gen_data{'gp'}{'nb_bytes_data_field'} = $q->dequeue();
            $gen_data{'gp'}{'root_path'} = $q->dequeue();
            $gen_data{'gp'}{'tranche'} = $q->dequeue();

    # lri
    $q->enqueue($ref_gen_data->{'lri'}{'major_version'},
                $ref_gen_data->{'lri'}{'minor_version'},
...
                $ref_gen_data->{'gp'}{'nb_bytes_data_field'},
                $ref_gen_data->{'gp'}{'root_path'},
                $ref_gen_data->{'gp'}{'tranche'});