for my $elem ( "$year:$mon:$mday", "$hour:$min:$sec" )
{
    mkdir $elem;
    chdir $elem;
}