Insofar as I understand what you're trying to do, it looks OK:

>perl -wMstrict -le
"my @folders = qw(foo .foo foo.bar foo. . .. ...);
 ;;
 foreach my $folder (grep { $_ ne '.' } @folders) {
   printf qq{'$folder' };
   }
"
'foo' '.foo' 'foo.bar' 'foo.' '..' '...'
[download]