#!/usr/bin/perl -w

use File::Path;

my $chrd = "jail";

my @chrd_subdirectories = ( "root", "etc", "tmp", "dev", "usr", "var", "bin", "lib", "lib64" );

foreach (@chrd_subdirectories)
{
    mkpath(["$chrd", "/", "$_"], 1);   # <- supposed to be creating dirs like jail/root jail/etc..blablabla
}