my $datacopy = $MySafe::data;
bless $datacopy->{person}, 'Person';

##</code><code>##

bless $datacopy->{person}, ref $datacopy->{person};

##</code><code>##

ref($_) and bless($_, ref $_) for values %$datacopy;

##</code><code>##

$string = <<'EOM';
{
    'person' => bless( [
        42
    ], 'Person' )
};
EOM

my $data = Safe->new()->reval($string);

ref($_) and bless($_, ref $_) for values %$data;