在 Perl 中，子程序（也称为函数）中的私有变量可以通过使用 my 关键字来创建。这些变量的作用域仅限于定义它们的块，也就是说，它们是局部变量，只在子程序内部可见。

这是一个示例，展示如何在 Perl 的子程序中使用私有变量：

#!/usr/bin/perl  
use strict;  
use warnings;  
# 定义一个子程序  
sub greet {  
    # 使用 my 声明局部变量  
    my $name = shift;  # 从参数列表中获取第一个参数  
    my $greeting = "Hello, $name!";  
    # 返回问候语  
    return $greeting;  
}  
# 调用子程序  
my $message = greet("Alice");  
print "$message\n";  # 输出: Hello, Alice!  
# 尝试在子程序外部访问 $name 和 $greeting 将导致错误，因为它们在此作用域不可见  

解释

1. my 关键字：使用 my 可以在子程序中声明私有变量。它们的作用域仅限于括号 {} 内，也就是这些变量只在定义它们的块中有效。

2. 局部性: 由于上述子程序中的 $name 和 $greeting 是使用 my 声明的，所以它们是这个子程序的私有变量。即使在子程序被调用之后，这些变量的值也不会在子程序之外泄漏，因而不会影响其他代码。

3. 可维护性和安全性: 使用局部变量有助于防止无意中修改其他代码中的变量，这是编写可靠和可维护代码的良好习惯。

你可以在子程序中根据需要创建多个私有变量，它们不会相互干扰。为了进一步细化变量作用范围，甚至可以在更小的代码块中使用 my 来定义局部变量。