sub case {
    local(*assoc,$_) = @_;
    for (split(/\n/)) {
	/^(\S+)\s+(.*)/;
	for (eval $1) {
	    $assoc{$_} = $2;
	}
    }
}

&case(*_V_A_R_I_A_B_L_E,<<'ENDCASE');
_R_A_N_G_E _A_C_T_I_O_N
_R_A_N_G_E _A_C_T_I_O_N
...
_R_A_N_G_E _A_C_T_I_O_N
ENDCASE

...

eval _$_V_A_R_I_A_B_L_E{_S_E_L_E_C_T_O_R};
