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