my %cp = %$original_object;
my $cloned_object = bless(\%cp, ref($original_object));