可以使用全局哈希 %_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(); /* initializes the function */

/* Set up a function that uses the quote function */

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 变量和其他全局状态的值。因此，只有在由同一 SQL 角色执行时，两个 PL/Perl 函数才会共享 %_SHARED 的相同值。在单个会话在多个 SQL 角色中执行代码的应用程序中（通过 SECURITY DEFINER 函数，使用 SET ROLE 等等），您可能需要执行明确的步骤来确保 PL/Perl 函数可以通过 %_SHARED 共享数据。为实现此目的，请确保应进行通信的函数归同一个用户所有，并将其标记为 SECURITY DEFINER。当然，您必须小心确保此类函数不会被用来执行任何意外的操作。