#!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++;
	}