use strict;
use warnings;

my @files=qw/CARS BIKES/;
chomp(my $home = `pwd`);
my $dir = 'VEHICLES';
mkdir ($dir);
chdir ($dir);
foreach my $file(@files)
{
  mkdir $file;
  chdir $file;
  chdir "$home/$dir";
}