use strict;
use warnings;
use autodie;

my $stat_dir = shift;
my %data = ();
 
{
     local @ARGV = glob ("$stat_dir/*.*");
     while (<>) {
          chomp;
          # ...
     }
     # ...
}