my( $yr, $mo, $dm, $dy, $wk ) = @{$dt}[0,1,2,7,9];