foreach my $folder (grep {$_ ne "."}@folders)
{
}