CREATE OR REPLACE FUNCTION reset_counter() RETURNS INT AS $$
$_SHARED{counter} = 0;
return 0;
$$ LANGUAGE plperl;

CREATE OR REPLACE FUNCTION counter() RETURNS INT AS $$
return $_SHARED{counter}++;
$$ LANGUAGE plperl;

URL: http://www.sai.msu.su/~megera/oddmuse/index.cgi/pgsql_tips
Обсуждается: http://www.opennet.me/tips/info/825.shtml

• Создание глобальных переменных в pl/perl процедурах в PostgreSQL,Ostrov, 08:24 , 06-Апр-05
• Создание глобальных переменных в pl/perl процедурах в PostgreSQL,Stanislaus, 10:46 , 03-Апр-07

т.е. вся соль в наличии хеша %_SHARED с глобальной областью видимости?

Спешу заметить, что $_SHARED глобальна только на 1 сессию (подключение)... Выяснилось опытным путем... Ничего подобного типа IPC::Shareable не используется...