foreach my $dir (@directories) { #@directories is your list of directories
  opendir(ROOT,$dir) or die "Directory <$dir> failed: $!";
  foreach my $F (readdir(ROOT)) {
     $File="$dir/$F";