use File::Find;
use File::Basename;
use feature 'say';

my @files;
find (sub { m/\.csv$/i && -s $_ < 5500 and push @files, $File::Find::Name }, "C:/Temp");

my %dirs;
foreach my $file (@files) {
	my($filename, $directories, $suffix) = fileparse($file);
	$dirs{$directories}++;
}

my @keys = keys %dirs;
@keys = sort @keys;
foreach my $key (@keys) {say $key;}