my %test = (
    hula => 1,
    );

my $testclone = dclone \%test;
print "test:  $testclone\n",  Dumper($testclone);

%test = (
different => 1,
    );

my $testclone2 = dclone \%test;

print "test:  $testclone\n",  Dumper($testclone);
print "test2: $testclone2\n", Dumper($testclone2);