List subdirectories in perl

#1
I need to detect any folders in the current directory and store them to an array, could someone show me how to do this? Sorry for the stupid question can't seem to find an answer.
 
Top