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){
      my %hash;
        if(/^$zahl1;([^;]+)/){
          $header = $1;
          $hash{$header} = $inhalt;
          push(@array,\%hash);
          #print "$header\n";
        }
      } 
    }

  }
}
  foreach my$ele (@array) {
#   print "$ele\n";
    # Kannste weglassen
    foreach my$ele2 (keys %$ele) {
      print $ele->{$ele2},"\n";
    }
  }