# At the top of the script...
use enum qw( YR=0 MO DM DY=7 WK );

# ...later...
my( $yr, $mo, $dm, $dy, $wk ) = @{$values}[ YR, MO, DM, DY, WK ];