my $count = 0;
     
my @mkdir = ( "$year:$mon:$mday", "$hour:$min:$sec");
chdir ("/home/guest-content");
while ($count ne @mkdir){
    system "mkdir $mkdir[$count]";
    chdir "$mkdir[$count]";
    $count ++;
}