#!c:\perl\bin\perl.exe -w

$QuellPfad = "c:/Ablage/Q1/";
$QuellDat = "*\.csv";
$a = $QuellPfad.$QuellDat;
print "$a\n";

# @file_ar1 = <c:/Ablage/Q1/*.csv>;                             
@file_ar1 = <$a>;

$lang_ar1 = @file_ar1;
$durchlauf = 0;

while ($durchlauf < $lang_ar1)  {
        $zeile_ar1 = $file_ar1[$durchlauf];
        print "$zeile_ar1\n";
 
        $durchlauf++;
        }