find (sub { m/\.csv$/i && -s $_ < 5500 and print "$File::Find::name\n" and push @files, $File::Find::name }, $dir);