for (@list) {
  File::Path->make_path($path);
  chdir $path or die "Cannot chdir: $!";
}