@folders = grep {/ome/} readdir DIR; if (! @folders) { # oder: if (scalar @folders == 0) ...