use Data::Dumper;

my $this = {a => 1, b => {bb => [ 'ccc' ]}, c => 3};

# clone $this into $that
my $that = eval Data::Dumper::Dumper($a);