for $mk (grep {!/^\.+$/} @folders) {