>>411
&test2;
は@_を引き継いでしまう
&test2();
とすればtest2には空の引数が渡る
あとは ttp://perldoc.jp/perlsub 参照