@sess_funcs = ("F1E","F1W","F1N","F1S");
@v_funcs = ("$oev_code","$oevc_code");
@eprep_funcs = ("$oe_e","$e_e");
@ev_funcs = (@sess_funcs,@v_funcs,@eprep_funcs);