my ( $y, $m, $d, $h ) = @tokens;