pg/tcl performance related

Hi,

suppose I want to create a tcl function that basically walks through a long list and compares its
argument against all entries
In plain tcl I would probably write

set data {
# .... lots of stuff here
}
proc check val {
global data
foreach d $data {
# .... this does the work
}
}

Now, for pl/tcl, I could use either

create function check(text) returns text as $$
set data {
# the data value
}
foreach d $data {
# the work
}
$$ language pltcl;
or
create function check(text) returns text as $$
if ![info exists GD(data)] {
set GD(data) {
# the data value
}
}
foreach d $GD(data) {
# the work
}
$$ language pltcl;

Does this make any difference - i.e. how often will parsing the data happen?

Best regards
Wolfgang Hamann