在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) = @_來將參數賦值給變量。
