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