Dumping rows into an array?

Hi

I'm new to Postgres, but I've been having fun with it. In our
application we want to be able to store a variable number of
keywords for a record.

I first thought that an array column would be the way to go, but
after reading caveats on performance, I implemented they keywords
as a separate table. This works great, but now I have another
array question.

I want to pass the keywords for the record as an array to a stored
procedure (PL/pqsql), for inserting, and also return them as an array.

I got the input part working like this

SELECT INTO len array_upper(kw, 1);
FOR idx IN 1 .. len LOOP
INSERT INTO keywords
VALUES(DEFAULT, lid, kw[idx]);
END LOOP;

kw is a TEXT[] parameter to the fuction.

I've been unable to come up with the counterpart to select the
keywords and populate an array that I can return..

If I do

DECLARE kwlist TEXT[];
...

SELECT ARRAY[keyword] INTO keywordlist

I get one keyword, cast as an array.

I've tried

DECLARE kwlist TEXT[];
DECLARE kw RECORD;
...

FOR kw IN SELECT keyword FROM keywords as kk
WHERE lesson.id = kk.id
ORDER BY id
LOOP
kwary[idx] := kw;
idx := idx + 1;
END LOOP;

But only one word gets returned in kwary[]. At least that's what I
get after doing

lesson.keywordlist := kwary

Where lesson is the record I return from the function, and
keywordlist is a member of the record of type TEXT[].

Any ideas on how I might accomplish this? I"m open to any
suggestions, including using a different way of passing the
keywords. The only requirement I have is that I must be able to
pass in a variable length list of words, which I seem to have
solved, and that I need to be able to return a variable length list
fo words, which is driving me crazy.

Thanks for any pointers,

-karl

PS, if it makes a difference, the application is using Perl and
DBD::Pg to query the database. I see the same results when I call
the functions from psql.