Or, Data::Dumper (it is slower than Storable though).

use Data::Dumper;

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

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

/prakash