my $subtext = "&subby${var1}_text_$var2();";
    eval $subtext;