DO 
$$declare
    p_StrArr text[][];
begin
--    p_StrArr:=array[['a1', 'b1', 'c1'], ['a2', 'b2', 'c2'] ];
--    p_StrArr:=array_fill(null::text, array[2,3]);
    p_StrArr[1][1]:='a1';
    p_StrArr:=p_StrArr || array['a2'];
    p_StrArr:=p_StrArr || array['a3'];
-- если расскомментировать, то
-- ERROR:  array subscript out of range
--    p_StrArr[1][2]:='b1';
    raise notice 'p_Str=%', p_StrArr; 
    raise notice 'p_Str=%', p_StrArr[1][1]; 
    raise notice 'p_Str=%', p_StrArr[2][1]; 
    raise notice 'c1=%', array_length(p_StrArr,1); 
    raise notice 'c2=%', array_length(p_StrArr,2); 
END$$;

DO 
$$declare
    p_StrArr text[][];
    p_TmpArr text[][];
begin
    p_StrArr:=array[['a1', 'b1', 'c1'], ['a2', 'b2', 'c2'] ];
    raise notice 'p_Str=%', p_StrArr; 
    p_TmpArr:=array_fill(null::text, 
        array[array_length(p_StrArr,1),array_length(p_StrArr,2)+1]);
    for i in 1..array_length(p_StrArr,1) loop
        for j in 1..array_length(p_StrArr,2) loop
            p_TmpArr[i][j]:=p_StrArr[i][j];
        end loop;
    end loop;
    p_StrArr:=p_TmpArr;
    p_StrArr[1][4]:='d1';
    raise notice 'p_Str=%', p_StrArr; 
    raise notice 'c1=%', array_length(p_StrArr,1); 
    raise notice 'c2=%', array_length(p_StrArr,2); 
END$$;

DO 
$$declare
    p_StrArr text[][];
    p_TmpArr text[][];
    p_TmpArr1 text[];
begin
    p_StrArr:=array[['a1', 'b1', 'c1'], ['a2', 'b2', 'c2'] ];
    raise notice 'p_Str=%', p_StrArr; 
    p_TmpArr:='{}';
    foreach p_TmpArr1 slice 1 in array p_StrArr a loop
        p_TmpArr := p_TmpArr || array[p_TmpArr1 || null::text];
    end loop;
    p_StrArr:=p_TmpArr;
    p_StrArr[1][4]:='d1';
    raise notice 'p_Str=%', p_StrArr; 
    raise notice 'c1=%', array_length(p_StrArr,1); 
    raise notice 'c2=%', array_length(p_StrArr,2); 
END$$;