use File::Find;
find (
      sub {
        push (@dateien, $File::Find::name)
          if -f $_ and $_ ne 'Thumbs.db'; # nur dateien ausser 'Thumbs.db'
      },
      @directories
);