foreach my $dir ( @dirList ) {
  open ( FILE, "$dir/foo/bar.txt" ) or die ("nasty message: $!");
  while (<FILE>) {
    &doStuff();
  }
}