foreach (@Zeilen){
    if ($typ == 1 && /$dokuart\;$zahl1\;(\d+)/){
      $zahl1 =  $1;    
      open(DATEI, "<C:/Beispieldaten/Konfigurationsdaten/20060310.REPOSITORY") || die "Datei nicht gefunden";
      my @Zeilen = <DATEI>;
      close(DATEI);
      foreach(@Zeilen){
        if(/^$zahl1;([^;]+)/){
          $header = $1;
          #print "$header\n";
        }
      } 
      $hash{$header} = $inhalt;
      push(@array,\%hash);
    }
  }
}
  foreach my$ele (@array) {
    foreach my$ele2 (keys %$ele) {
      print $ele->{$ele2},"\n";
    }
}