{
    no strict 'refs';
    my $subname = "subby${var1}_text_${var2}";
    $subname->();
}