$dir = "VEHICLES";
@files = ('CARS', 'BIKES');
mkdir ($dir) or die "can't mkdir $dir: $!";
chdir ($dir) or die "can't chdir to $dir: '$!'";
foreach $file(@files)
{

  mkdir $file or die "(loop) can't mkdir $file: '$!'";
}