my $dir = 'C:/Users'; my @new_csv_files; opendir my $dh, $dir or die "opendir($dir) failed: $!"; chdir $dir; while ( my $filename = readdir $dh ) { if ( substr( $filename, -4, 4 ) eq '.csv' ) { if ( not -e "$filename.xls" ) { push @new_csv_files, $filename; } } } closedir $dh; # und jetzt die Dateien in @new_csv_files verarbeiten. # Beachte, dass hier nur die Dateinamen drin stehen, nicht der Verzeichnis-Pfad!