Etwas

# Write result set to import file
foreach $key (keys %$rhResult) {
    print "---     durchschreite rhResult\n";
    $rhRecord = $rhResult->{$key};
    print "---     habe rhRecord: $rhRecord\n";

    foreach $docKey (keys %$rhRecord) {
          print "---       durchschreite rhRecord\n";
          $docName = $rhRecord->{$docKey};
          print "---       DocName: ".$docName."\n";
    }
}

      # So wurde rhResult zusammen gebaut:
      #    $rhRow->{COMP_LEN} =~ s/[^\d]//g;
      #    $rhResult->{"$rhRow->{DOC_NAME}"} = $rhRow->{COMP_LEN}