use warnings;
use strict;
my @files = <*.txt>;
for (@files) {
    if (-z $_) {
        print "File $_ is empty\n";
    }
    else {
        print "File $_ is not empty\n";
    }
}
[download]

File a.txt is empty
File b.txt is not empty
File c.txt is not empty
[download]