perl - 他のサブルーチンから呼び出された参照サブルーチンにパラメーターを渡す方法

Question

use strict;
use warnings;
sub test1 {
my $arg = shift;
print "$arg";
}
my $rs = \&test1;
sub test2 {
my $value = shift;
print "$value \n";
return $rs;
}



&test2("hello")->("Bye");

期待どおりに正常に動作しています。しかし、test1 サブで test2 サブからパラメーターを渡したい場合。何かのようなもの

use strict;
use warnings;
sub test1 {
my $arg = shift;
print "$arg";
}
my $rs = \&test1;
sub test2 {
my $value = shift;
print "$value \n";
return $rs($value);
}

&test2("hello")->();

構文が間違っていることはわかっていますが、その方法はわかりません。質問が明確であることを願っています。

hello hello として出力したい

それを行う方法がわからない