use strict;
use warnings;

my $dir = './';

my @nonZeroLengthFiles = grep -s, <$dir*>;
print "$_\n" for @nonZeroLengthFiles;