my $clone = dclone($object);