How do I distinguish a file from a directory in Perl?

Question

I\'m trying to traverse through all the subdirectories of the current directory in Perl, and get data from those files. I\'m using grep to get a list of all files and folder

Answer 1

my @files = grep { -f } @all;
my @dirs = grep { -d } @all;