foreach $mk (@folders) {
   next if $mk eq '.';
   ...
}

##</code><code>##

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

##</code><code>##

foreach $mk (grep { $_ ne '.' } @folders) {
   ...
}