&test1("www");

sub test1{
my($aaa) = @_;
&test2;

}

sub test2{
my($bbb) = @_;
print "$bbb";
}

このときtest2には引数をわたさない場合、test1の引数がtest2にわたってしまいwwwが表示されてしまいます
test2に引数をわたさない場合test1の@_がわたらないようにするにはどうすればいいんですか？