use Text::Table;
my $t = Text::Table->new(qw(CASENAME SORTED CLEANED PROCEED));
for my $dir (glob '/home/folders/case*/') {
    my @res;
    for my $subdir (qw(sorted cleaned proceed) {
        if (-d "$dir/$subdir") {
            push @res, 'Yes';
        }
        else {
            push @res, 'No';
        }
    }
    $t->add(@res);
}
print $t;