在编写Perl代码时，我经常会遇到这样的情况：文件顶部有大量变量，它们在脚本中充当“全局”变量。为了将这些“全局”变量与其他变量区分开来，我一直使用全部大写字母来编写这些变量，但我最近一直在处理一些非常大的脚本，有很多模块，真的很想学习一种好的方法来尽量减少“全局”的使用并使我的代码尽可能安全。
我经常遇到的情况是有两个共享大量变量的子例程：

my $var1, $var2, $var3, $var4, $var5 . . .
sub sub1 {
    # uses $var1, $var2, $var3 . . .
    # may even make changes to some of these variables
}

sub sub2 {
    # also uses $var1, $var2, $var3 . . .
    # may change $var1, $var2, $var3
}

sub sub3 {
    # doesn't use $var1, $var2, $var3
    # still has access to change them
}

将所有这些变量传递到每个子例程并返回4或5个变量看起来非常难看，并且很快就很难跟踪所有变量，但如果我将这些变量保持为全局变量，我会遇到sub 3可能在不应该编辑它们的时候编辑它们的问题。
我知道我可以使用“{}”来限定变量的范围，但我个人认为这看起来很难看：

{
    my $var1, $var2, $var3, $var4, $var5 . . .
    sub sub1 {
        # uses $var1, $var2, $var3 . . .
        # may even make changes to some of these variables
    }

    sub sub2 {
        # also uses $var1, $var2, $var3 . . .
        # may change $var1, $var2, $var3
    }
}

sub sub3 {
    # doesn't use $var1, $var2, $var3
    # no longer has access to change them
}

同样，如果我使用“{}”来限定变量的范围，如果sub1和sub 2共享了它们不希望sub 3访问的变量，然后我又希望sub1和sub 3共享sub 2不希望访问的变量，会发生什么情况？使用“{}”来限定变量的范围似乎是不可能的。尝试这样做的结果如下：

{
    my $varx, $vary, $varz . . .
    {
        my $var1, $var2, $var3, $var4, $var5 . . .
        sub sub1 {
            # uses $var1, $var2, $var3 . . .
            # may change $var1, $var2, $var3

            # uses $varx, $vary, $varz . . .
            # may change $varx, $vary, $varz
        }
    
        sub sub2 {
            # also uses $var1, $var2, $var3 . . .
            # may change $var1, $var2, $var3

            # does not use $varx, $vary, $varz . . .
            ############################################
            # still able to change $varx, $vary, $varz #
            ############################################
        }
    }
    
    sub sub3 {
        # doesn't use $var1, $var2, $var3
        # no longer has access to change them

        # uses $varx, $vary, $varz . . .
        # may change $varx, $vary, $varz
    }
}

除了使用“{}"之外，还有什么更好的方法来限制访问吗？即使唯一的解决方案是进入面向对象的Perl，也可以随意提出一些想法（如果你进入面向对象的Perl，请非常描述性地说，我对使用面向对象的编程还是有点陌生）。
谢谢你！