#!/usr/bin/perl

use utf8;
use Encode;
use strict;
use warnings;
use Data::Dumper;

my $locale = "EN";
my $setSwitchName = "UNINSTALL";

my $content = {
           'EN' => {
                     'SWITCH' => {
                                   'INSTALL' => {
                                                  'ACTION' => 'a1',
                                                  'ICONID' => 'i1',
                                                  'CAPTION' => 'c1',
                                                  'DIZ' => 'd1'
                                                },
                                   'UNINSTALL' => {
                                                  'ACTION' => 'a2',
                                                  'ICONID' => 'i2',
                                                  'CAPTION' => 'c2',
                                                  'DIZ' => 'd2'
                                                }
                                 },
                     'ACTION' => 'a3',
                     'ICONID' => 'i3',
                     'CAPTION' => 'c3',
                     'DIZ' => 'd3'
                   }
         };

my $switchValues = $content->{$locale}->{'SWITCH'};
print ("switchValues=".Dumper($switchValues)."\n");

my $setSwitchValue = $switchValues->{$setSwitchName};
my $tmpContent = $setSwitchValue;
$tmpContent->{'SWITCH'} = $switchValues;
my $newContent->{$locale} = $tmpContent;
print ("newContent=".Dumper($newContent));