#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my $newConf =  { 'FullKeepCnt' => [ 4 ] };

print "Original structure: ", Dumper( $newConf );

foreach my $var ( sort(keys(%$newConf)) ) {
    my $d1 = Data::Dumper->new([$newConf->{$var}], \[*value]);
    print "\nd1: ", Dumper( $d1 );
    my $value1 = $d1->Dump;
    print "\nvalue 1: $value1\n";

    my $d2 = Data::Dumper->new([$newConf->{$var}], [*value]);
    $d2->Useperl(0);
    print "\nd2: ", Dumper( $d2 );
    my $value2 = $d2->Dump;
    print "\nvalue2: $value2\n";
}

##</code><code>##

value2: @main::value = (
                 4
               );