[Solved] How to create a combined function link?

Question

Perl

Given:

#опеределенная функция вызывает потоки и передает им ссылки
sub prs {
 ...
thr (@links);
}
#Тут то и вопрос как создать ссылку на функцию thr_prs, зная что нас вызывает функция prs ?
sub thr {
   #Вот я вызвал имя калера
   my $d = (caller(1))[3];
   $d =~ s/Some_lib:://g;
   #как можно сделать составную ссылку на функцию типа	 
         # my $fu = '\&thr'."$d";
   Thread->new( \&rty, ($n, \&thr_prs));
}

sub rty {
    my ($url, $hash) = shift;
    my $ba = Mojo::UserAgent->new();
    my $res = $ua->max_redirects(5)->get($url);
    $hash->( $res ); 
}

sub thr_prs{
    my @hash = @_;
    foreach (@hash){
    my $dom = Mojo::DOM->new( decode('utf8', $_->res->body ) );
    };
}

That's actually the question, how can you create a combined link based on the name of the calling function, once again if data calls, pass a link to \&thr_data, if katya then to \&thr_katya, etc.

Answer 1

my $thr = \&{"thr_$d"};