if (grep { not m/^\.\.?$/ } @dirs) {
    # verzeichnis nicht leer
}