for my $d (@a) {
  mkdir $d or die "Couldn't create directory $d: $!";
}