@t=map$_+{1,1,0,1900}->{$i++},(localtime)[5,4,3,2,1,0];