my $f2 = $fo->Frame(-borderwidth => 3,
                    -relief      => 'groove',
                   )
             ->pack(-side        => 'right',
                    -expand      => 1,
                    -fill        => 'both',
                   );

my @streuselsorten = ('keine Streusel',
                      'Schokoladenstreusel',
                      'bunte Streusel',
                      'Krokantstreusel',
                      'Zartbitterabrieb',
                     );
my $streusel = 0;
for my $i (0..$#streuselsorten) {
    $f2->Radiobutton(-text     => $streuselsorten[$i],
                     -variable => \$streusel,
                     -value    => $i,
                    )
              ->pack(-anchor   => 'w');
}