foreach my $j (0..$i-1) {
    $SUB = $j."Textfield_MaxText";
    ...
        *$SUB = sub { variableMaxText(0); };