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

##</code><code>##

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

##</code><code>##

my @dup_dirs = grep { $dirs{$_} > 1 } keys %dirs;