$test = sub { $a = shift; printf("test $a\n"); };
こんな感じのsubのレファレンスの変数$testを
引数付きで実行するにはどうすればいいですか。