my %dirs;
find(sub { $dirs{$File::Find::dir}++;}, $path);

##</code><code>##

my @dirs;
find(sub { push @dirs, $File::Find::dir }, $path);