サブルーチンを定義する。

具体的には、ベアワードによるサブルーチンコールが行えるようになる。

pragmaなし：
my $ref = routine;　　　　# sub routine への参照が$refに代入される
&$ref();　　　　　　　# sub routine がコールされる

use subs routine：
my $ref = routine;　　　　# sub routine がコールされる

use strict subs：
my $ref = routine;　　　　# エラー

use strict subs & use subs routine：
my $ref = routine;　　　　# sub routine がコールされる。