可以使用全局 hash %_SHARED 在当前会话的整个生命周期内跨函数调用存储数据，包括代码引用。

这是共享数据的一个简单示例：

CREATE OR REPLACE FUNCTION set_var(name text, val text) RETURNS text AS $$
    if ($_SHARED{$_[0]} = $_[1]) {
        return 'ok';
    } else {
        return "cannot set shared variable $_[0] to $_[1]";
    }
$$ LANGUAGE plperl;

CREATE OR REPLACE FUNCTION get_var(name text) RETURNS text AS $$
    return $_SHARED{$_[0]};
$$ LANGUAGE plperl;

SELECT set_var('sample', 'Hello, PL/Perl!  How''s tricks?');
SELECT get_var('sample');

下面是一个稍复杂一些的、使用代码引用的示例：

CREATE OR REPLACE FUNCTION myfuncs() RETURNS void AS $$
    $_SHARED{myquote} = sub {
        my $arg = shift;
        $arg =~ s/(['\\])/\\$1/g;
        return "'$arg'";
    };
$$ LANGUAGE plperl;

SELECT myfuncs(); /* 初始化函数 */

/* 创建一个使用加引号函数的函数 */

CREATE OR REPLACE FUNCTION use_quote(TEXT) RETURNS text AS $$
    my $text_to_quote = shift;
    my $qfunc = $_SHARED{myquote};
    return &$qfunc($text_to_quote);
$$ LANGUAGE plperl;

（上面的代码也可以替换为单行 return $_SHARED{myquote}->($_[0]);，但代价是可读性会变差。）

出于安全原因，PL/Perl 会在每个 SQL 角色各自独立的 Perl 解释器中执行该角色调用的函数。这可以防止一个用户意外或恶意地干扰另一个用户的 PL/Perl 函数行为。每个这样的解释器都有自己的 %_SHARED 变量值和其他全局状态。因此，当且仅当两个 PL/Perl 函数都由同一 SQL 角色执行时，它们才会共享 %_SHARED 的值。在某些应用中，一个会话可能会在多个 SQL 角色下执行代码（通过 SECURITY DEFINER 函数、使用 SET ROLE 等），这时可能需要显式采取措施，确保 PL/Perl 函数能够通过 %_SHARED 共享数据。为此，要确保需要相互通信的函数由同一用户拥有，并将它们标记为 SECURITY DEFINER。当然，必须注意不要让这些函数被用于任何非预期用途。