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