my @to_be_deleted;

File::Find( ..., sub {
    if( -d $File::Find::name ) {
        print "'$File::Find::name' should be deleted later\n";
        # push @to_be_deleted, $File::Find::name;
    };
};

rmdir @to_be_deleted; # boom