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

##</code><code>##

for $mk @folders) {
    next if $mk =~ /^\.+$/;