foreach $mk (grep !/^\.\z/, @folders) {
   ...
}