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

or

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

or

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