$doc_type_header->{$old_doc}= \@headerarr;

for my $element(@{$doc_type_header->{$old_doc}}){
    print $element,"\n";
}