#/bin/perl/
use strict;
use warnings;

my @emptyfiles;

#my $emptyfile =~ m/(\d+)/; 
#push (@emptyfiles, $emptyfile);

my $digit;
my $emptyname;

foreach (@emptyfiles) {

/(\d+)/;
$emptyname = $digit;

  if (-z "$emptyname") {
  print "found empty file $emptyname \n";
  }
}