foreach my $dir ( @directories ) {
  chdir $dir;
  opendir( ... # your code goes here.
}