What about doing:

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

Sören