Select Code to Download

#!/usr/bin/perl

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

newContent=$VAR1 = {
          'EN' => {
...
                    'CAPTION' => 'c2'
                  }
        };