for ( "$year:$mon:$mday", "$hour:$min:$sec" )
{
    mkdir $_ or die "mkdir $_ - $!";
    chdir $_ or die "chdir $_ - $!";
}