use warnings;
use strict;
use File::Slurp qw(read_dir);

my @folders = read_dir($dir);
foreach (@folders) {
    # do something
}