my $copy = bless { %$original }, ref $original;