You can clone objects with CPAN module Storable.
use Storable (dclone); ... my $obj2 = dclone($obj1);
It should be faster since Storable is XS (though I haven't done any benchmarks so I can be wrong).
Another option is CPAN module Clone. I've never tried it myself so I can't say anything about it.