open(my $FOLDERS, '+>', "dirs.log") or die $!;
find(
    sub {
        if (-d $File::Find::name && !$seen{$_}++) {
            push @folders, "$_";
            print $FOLDERS "$_\n";
        },
    $cwd
);

##</code><code>##

open(my $FOLDERS, '+>', "dirs.log") or die $!;
find(sub { push @folders, "$_" and print $FOLDERS "$_\n" if -d $File::Find::name && !$seen{$_}++;