foreach my $directory (@directories) { 
  my @list = glob("$directory/*"); 
}