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

my $quell_pfad  = "c:/Ablage/Q1/";
my $quell_datei = "*\.csv";

my $quell_pattern = $quell_pfad . $quell_datei;

print $quell_pattern, "\n";

my @dateien = glob( $quell_pattern );

# Kontrolle
for my $datei ( @dateien ) {
  print $datei, "\n";
}

# ...