use Storable (dclone); ... my $obj2 = dclone($obj1);