eval "\$answer$count=0;";
       eval "\$textframe$fcount->Checkbutton(...);";

##</code><code>##

       $answer[$count] = 0;
       $textframe[$fcount]->Checkbutton(...);

##</code><code>##

perl -MO=Deparse your_script.pl