sub enum {
    local($_) = @_;
    local(@specs) = split(/,/);
    local($val);
    for (@specs) {
	if (/=/) {
	    $val = eval $_;
	} else {
	    eval $_ . ' = ++$val';
	}
    }
}

&enum(<<'EOL');
_E_N_U_M_L_I_S_T
EOL
