# create object of My::Class
my $object = bless { some => 'thing' }, "My::Class";

# create a second reference to /the same/ object
my $copy = $object;

# copy object data - this /will not/ create a new object
# but $copy2 will be a reference to an unblessed hash
# containing all the data in $object
my $copy2 = { %$object };

# if you really need to "clone" an object, you need
# to bless the copy too, (and mind nested objects! -
# I ignored those here)
my $clone = bless { %$object }, "My::Package"