my $copy = $doc;
undef *doc;
$doc = $copy;