in reply to Adding an new element to array.
How about:
@$VAR1{ keys %$VAR2 } = values %$VAR2; [download]
or just
$VAR1->{'DOC'} = $VAR2->{'DOC'}; [download]