Stehen diese Einträge "B2DOK;63;41;1; 0 0 ;;;;0;0" in einer beliebigen Zeile?
Ich glaube du bekommst immer nur die erste Zeile einer Datei eingelesen.


my $dir = './Konfigurationsdaten';
my @Zeilen = glob("$dir/*.DOCFIELD");

foreach (@Zeilen){
open(my $fh,"<$_") or die $!;
close $fh;
}