opendir DIR, "/";
  my @files = readdir DIR;
  closedir DIR;
 
  @files = grep { -d "/$_" } @files;

  my $dirname;
  foreach $dirname @DIR {
    if (-f "/$dirname/foo.bar") {
      print "$dirname has foo.bar\n"
    };
  };