I get an error in this code block, a cut'n'paste error?

 elsif ($word eq "radio")
                {if ($debug) {print "Radio-";}
                $count++;
                eval "\$answer$count=\"\";";
                $things=nextword;
                @things=split(/\s/, $things);
                foreach $item (@things)
                foreach $item (@things)
                        {eval "\$textframe$fcount->Radiobutton(-text =
+> '$item', -variable => \\\$answer$count, -value => '$item')
                                ->pack(-side => 'left', -fill => 'x');
+";}
[download]

You have a duplicate foreach $item (@things)