在Perl中，可以通过使用关键字sub来定义函数。函数的语法如下：
sub function_name {
# 函数体
# 可以在这里编写函数的逻辑
}
下面是一个简单的例子，展示如何定义一个函数并在主程序中调用它：
sub greet {
my ($name) = @_;
print "Hello, $name!\n";
}
# 调用函数
greet("Alice");
greet("Bob");
在上面的例子中，我们定义了一个名为greet的函数，用来打印“Hello, $name!”的问候语。在主程序中，我们分别调用了greet函数并传递了不同的参数。
需要注意的是，在Perl中，函数的参数传递是通过@_数组来实现的。在函数内部，我们可以通过$_[0]、$_[1]等访问传递给函数的参数。此外，可以使用my ($param1, $param2) = @_来将参数赋值给变量。
