#!/usr/bin/perl -w
use strict;
use Clone;
use Data::Dumper;

printf "Clone: %s Data::Dumper %s\n",
    $Clone::VERSION,
    $Data::Dumper::VERSION;

my $orig = {
    # This could be arbitrariliy complicated/nested 
    # - this suffices for a demo
    # of the probem
    'array' => [ 1,2,3 ]
};

# Put it throught Data::Dumper with Userperl(1);
my $d = Data::Dumper->new([$orig]);
$d->Useperl(1);
$d->Dump();

# Make a clone - it should be identical, I guess
my $clone = Clone::clone($orig);

# See that the clone has a different structure in array
# (length of $$clone{array} is 0)
printf "orig: %d clone %d\n",
    scalar(@{$$orig{array}}),
    scalar(@{$$clone{array}});