Suche Lösung: Zeige alle Dateien an außer Dateien aus Liste

use strict;
use warnings;

my $csvname = 'dateien.csv';
my $ordner = '.';

# gegebene Liste aus csv (1-spaltig) oeffnen
open my $fh, '<', $csvname or die $!;
# einlesen und Zeilenende  \n entfernen
my @flist = <$fh>; chomp @flist;
# Nachschlagetabelle (hash) erzeugen
my %xlsnames = map length $_ ? ($_=>1) : (), @flist;
close $fh;

# Verzeichnis oeffnen, und einlesen 
opendir my $dh, "$ordner";
# fehlende Namen anhand der Nachschlagetabelle ausgeben
print join "\n", grep { -f && !exists $xlsnames{$_} } readdir($dh);
closedir $dh;