my @file_list;
find ( sub {
  my $file = $File::Find::name;
  if ( -f $file && $file =~ /^DATE_/) {
    push (@file_list, $file) 
  }
}, @ARGV);