$dirs{$File::Find::dir} = 1;

##</code><code>##

++$dirs{$File::Find::dir};

##</code><code>##

$dirs{$File::Find::name} = 1;