foreach my $dir (glob("*")) {
  foreach  my $file (glob("$dir/*")) {
      print "[$file]\n";
  }
}