サブルーチンのリファレンスだけが必要な場合、名前のないサブルーチン（無名サブルーチン）を定義し、そのリファレンスを取得することができます。
my $ref = sub { my $name = shift; print "Hello, $name.\n"; }; $ref->('Jack');
無名サブルーチンは、サブルーチンのリファレンスが必要なところではいつでも使用できます。
