print "OUTFILES*******************\n";
foreach my $directory (glob "my_data/*")
{
   print "Directory: $directory\n";
   foreach my $file (glob "$directory/*")
   {
      print "   File=$file\n";
   }
}