@foo = split' ',scalar localtime;
$bar = pop @foo;
print ++$bar;