my @dir = readdir DIR;

my @to_print = grep { -r $_ && -w $_ && -x $_ && /^[a-zA-Z]/ } @dir;

print join "," => @to_print;