sub setmode {
    my($val,$ref) = @_;
    splice(@$ref,1,0,$val);
}