在Perl中可以自己创建子程序(Subroutine)：

关键字sub，子程序名以及用花括号封闭起来的代码块。

                sub  marine { ... }

子程序名与标量的命名空间是不同的两个部分。

子程序的返回值：最后一次运算的表达式即是默认的返回值。也可以用return来显式的返回，这样之后的语句不会执行。

                       在标量上下文返回的会是标量，在列表上下文返回的也是列表。

子程序中的参数：子程序内部可以使用@_，$_[0]，$_[1]，$_[2]，，，这样的变量来表示。@_变量是子程序私有变量，递归调用时，不会出错。

                       在子程序调用时，在子程序名后用括号括住的列表表达式。

                       $n = &max(10,15);          #10后被送到$_[0]，15被送到$_[1]，@_=(10,15)，在标量上下文值为2;

子程序私有变量定义： my关键字来声明词法变量(lexical variable)。           my($m,$n) = @_;  #创建私有变量并赋值。

                              不仅可以定义在子程序中，还可以定义在if, while, foreach中。

                               只能用来声明单个标量/变量，列表/数组。          my $fred, $barney;    #错误，第二个变量无法声明。

持久性私有变量： 用关键字state来声明，在子程序的多次调用中保留变量之前的值。作用域仍然是只存在于子程序内部。

                        sub  marine  {state $n=0; $n+=1; print; }

                        也可以用来声明数组和哈希类型。   state @number。

子程序的调用：子程序可以通过 (&+子程序名)的方式来调用。

                    如果编译器之前看到过子程序的定义，那么可以不加&，而直接调用子程序。

                    如果Perl可以通过语法规则直接判断它只能是子程序调用，那么也可以省略 &。

                            也就是说只要你将参数列表放进括号内，就一定是子程序调用。

use strict;        #强制要求使用一些严格的，良好的编程风格。