switch ($j) {

##</code><code>##

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